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EDITORIAL 


THIS MONTH' S MAGA2INE 

Anyone who sets out to do much programning on their Electron will soon realise 
that the Basic Renumber command is quite limited. This month's utility, a must for 
all programmers, enables any part of a program to be renumbered, and it checks for 
any clashes, and any relevant references elsewhere in the program. 


Our continuing series on Electron graphics provides some more useful procedures, 

this time for colouring irregularly shaped areas. All the procedures in this series 
could form a very useful procedure library in the way we described last month. 


In December, we published a program called ASTAAD for computer aided design. We 

have now extended the features of this program to make it even more impressive. If 
you are at all interested in any form of computer graphics, then ASTAAD is well 
worth experimenting with. 


We have also picked out three more entertaining games for this issue, ranging 

Lunar 


from a computer version of 'Connect Four' through to another 


space game. 


Escape', all good fun to play. 


ELECTRON GRAPHICS 

In last month's article in this series, the program called FILLSQUARE2 on page 7 
may have resulted in a little confusion. The usual headings for the program became 
separated from the program itself, and were printed below the accompanying 
illustration. Sharp-eyed readers will also have spotted the name BEEBUG rather than 
ELBUG 

extra lines and use the program as correctly listed above the illustration. 


slip of the mind on the part of your editor. You can just ignore these 


a 


ADD -ONS FO R THE ELE CTRON 

We have referred several times already to the so far disappointing development of 
the add-on market for Electron users. However, at the Micro User Show at the end of 
March, several manufacturers were demonstrating add-ons, some of which look very 
good indeed. We report on these developments elsewhere in this issue. At long last 
it does seem as though all those desirable extras are beginning to appear. 


Mike Williams 


i 


I ICE BOARD NOTICE BOARD NOTICE BOARD NOTICE BOA 


i 


MAGAZINE CASSETTE 

This month sees the launch of our magazine cassette service for ELBUG. Each month 
all the programs in ELBUG magazine will be available on cassette, starting with this 

all that 

previous issues of ELBUG (1 to 5) are also being produced, and all cassettes will be 
kept in stock. We 

onwards. Future magazine cassettes will be ready at the time of pub!ication. Full 
ordering details are on the back cover. 


wear and tear on the fingers. Cassettes for all 


issue. This will 


expect all six cassettes to be ready for dispatch from mid May 
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HUNT THE NUMBERS 

by K. Allen 




Hunt the Numbers is a fast, all-action game written specifically for 
the Electron. It incorporates coloured graphics in Mode 5 and at the 
fastest level is very quick and extremely challenging. 


Your man is a number-eating beasty, 
or a kind of number-cruncher, I 
suppose, whose world consists of a nice 
bright yellow square. Within this, by 
the magic of computers, ever increasing 
numbers keep appearing as temptation to 
your man to raise his calorific intake 
for the day. But as you move him to 

numeric morsels, other 
nasty monsters will give chase all 
round the board with only the demise 
and consumption of your innocent 
glutton as their objective. These chaps 

are number-cruncher gulpers and they 

in quantity with your man's 

success. With higher levels of skill, 

at the beginning of the game. 


wnsler. Mien vou g»t to numtrs you got 
• 2nd nonster and when you get 29 you'll 


hav* thraa to avoid 


these aggressors become faster and more 


direct in 


their descent upon your 
ever-hungry number-cruncher which can 
result in a peculiarly loopy dance 
around the board's surface. 


10 REM PROGRAM NHUNT 

20 REM VERSION E0.3 
30 REM AUTHOR K.ALLEN 

40 REM ELBUG 
50 REM PROGRAM SUBJECT TO COPYRIGHT 

60 : 

100 CLEAR:M0DE6 
110 ON ERROR GOTO 330 
120 PROCinfo 


MAY 1984 


130 man%=3:score% 


50:Q%=9 


140 MODE 5 
150 PROCsetup 

160 PROCnumbers 
170 REPEAT 

180 PROCmonster1 
190 PROCman 

200 IF Q%>10:PROCmonster2:ELSE PROCde 
lay(6) 

210 PROCman 

220 IF skill%>l :PROCmonster1:ELSE PRO 

Cdelay (1 6) 

230 PROCman 

240 IF skill%>2 PROCmonster1:PROCman: 
IF Q%>10:PR0Cmonster2:ELSE PR0Cdelay{8) 
250 PROCman 

260 IF skill%>3 PROCmonster!:IF Q%>10 
:PROCmonster2:ELSE PR0Cdelay(8) 

270 PROCman 

280 IF skill%<4:PROCdelay(8) 

290 IF Q%>20:PROCmonster3 
300 UNTIL FALSE 
310 END 


Controls to change the horizontal 

and vertical directions of movement are 
the ' Z','X 1 , and 

it's important to note also that 
simultaneous use of a horizontal and a 
vertical control key will produce a 
diagonal motion, which is just as well 

nasty monsters' have no 
qualms about cutting corners when 
they're chasing you. 


• *« 


and '/ 


keys bu t 
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320 : 

330 ON ERROR OFF:MODE 6: IF ERR017 TH 
EN REPORT:PRINT "at line";ERL 
340 END 
350 : 

1000 DEFPROCman 

1010 IF Q%>20 AND (A=W AND B=Z) PROCde 
ad:GOTO 100 

1020 IF Q%>10 AND (A=F AND B<4) PROCde 
ad:GOTO 100 

1030 IF (A=M AND B=N) PROCdead:G0T0100 
1040 IF NOT(A=K% AND B=L%) THEN GOTO 1 
050 ELSE VDU 7:PROCnumbers 
1050 IF INKEY(-98):A=A-3:IF A<5 A=5 
1060 IF INKEY(-67):A=A+3;IF A>26:A=26 
1070 IF INKEY(-73):B=B+4:IF B>31:B=31 
1080 IF INKEY(-105):B=B-4:IF B<3:B=3 

1090 IF a=A AND b=B:GOTO 1130 
1100 *FX21,4 
1110 SOUND 0,-15,4,3 
1120 GCOL 0,2:MOVE 40*a,26*b:VDU 241 
1130 GCOL 0,1:MOVE 40*A,26*B:VDU 241 
1140 a-A:b=B 
1150 ENDPROC 
1160 : 

1170 DEFPROCdelay(D%) 

1180 now=TIME:REPEAT UNTIL TIME>now+D% 
1190 ENDPROC 
1200 : 

1210 DEFPROCinfo 
1220 CLS 

1230 VDU 19,1,6;0; 

1240 PRINT TAB (4,3) "\V* HUNT THE NUMB 

ERS **// M ;TAB(3,4) STRINGS(28,"-") 

1250 PRINT TAB(2,7)"The object of the 
game is to collect as many numbers as 

you can, avoiding themonster. When you 

get two digit numbers"'"you get a 2nd m 
onster and when you get" 1 "up to 20 you' 

11 have three to avoid." 

1260 PRINT TAB(14,14)"Z for LEFT" 

1270 PRINT TAB(14,15)"X for RIGHT" 

1280 PRINT TAB(14,16)"* for UP" 

1290 PRINT TAB(14,17)"/ for DOWN" 

1300 PRINT TAB(2,19)"Please enter Skil 
1 level (1-4):" 

1310 REPEAT: skil ISLETS: UNTIL INSTR("1 

234",skill$)>0 

1320 skill%=VAL(skillS) 

1330 PRINT TAB(33,19);ski11% 

1340 PRINT TAB(5,22)"~>PRESS SPACE BAR 
TO START<="TAB(5,23) STRINGS(28,"-") 

1350 REPEAT UNTIL INKEY(-99) 

1360 ENDPROC 
1370 : 

1380 DEFPROCsetup 

1390 ENVELOPE 3,2,8,4,8,2,2,2,126,0,0, 
-126,126,126 


1400 A=5:B=3:a=5:b=3:f=26:F=26:g=31:G= 


31:N=7:n=7:M=26:m=26:W=5:w=5:Z=31 :z-31: 


K%=0:L%=0 

1410 VDU 24,160;16;1120;848; 

1420 VDU 23,240,102,153,153,255,129,16 
5,165,126 

1430 VDU 23,241,195,126,90,90,102,60,6 
6,195 

1440 VDU 5:VDU 18,0,130:VDU 12 

1450 VDU 26:VDU 19,0,4;0;:VDU 4 
1460 VDU 19,2,3;0;:VDU 19,1,2;0; 

1470 VDU 19,3,1;0;:VDU 18,0,2 


1480 start=TRUE:start2=TRUE:start3=TRUE 


1490 COLOUR2 

1500 PRINT TAB(1,2);"*HUNT THE NUMBERS 
*";TAB(1,4);"SCORE:";TAB(15,4); 

1510 IF man%>!:COLOUR 1:FOR lives=2 TO 
man%:VDU 9,241:NEXT 
1520 VDU 5 
1530 GCOL 0,3 

1540 FOR X=160 TO 1120 STEP 120:MOVE X 

,16:DRAW X,848:NEXT 

1550 FOR Y=d 6 TO 848 STEP 104:MOVE 160 
,Y:DRAW 1120,Y:NEXT 
1560 ENDPROC 
1570 : 

1580 DEFPROQnonster 1 

1590 IF M=A:GOTO 1600 ELSE M=M+3*(-l-2 
(M<A)):IF M<5 M=5 ELSE IF M>26:M=26 
1600 IF N=B:GOTO 1610 ELSE N=N+4*(-l-2 
(N<B)):IF N<3 N=3 ELSE IF N>31:N=31 

1610 IF (M=F AND N=G) OR (M=W AND N=Z) 
:N=n:M=m:ENDPROC 
1620 GCOL 3,1 

1630 MOVE 40*m,26*n:VDU 240:IF start=T 
RUE:start=FALSE:GOTO 1630 

1640 MOVE 40*M,26*N:VDU 240 
1650 n=N:m=M 
1660 ENDPROC 
1670 : 

1680 DEFPROOmonster 2 

1690 IF F=A:GOTO 1700 ELSE F=F+3*(-1-2 
(F<A)):IF F<5 F=5 ELSE IF F>26:F=26 
1700 IF G=B:GOTO 1710 ELSE G=G+4*(-1-2 
(G<B)):IF G<3 G=3 ELSE IF G>31:G=31 
1710 IF (M=F AND N=G) OR (W=F AND Z=G) 
:G=g:F=f:ENDPROC 

1720 GCOL 3,1 

1730 MOVE 40*f,26*g:VDU 240:IF Start2= 
TRUE:start2=FALSE:GOTO 1730 
1740 MOVE 40*F,26*G:VDU 240 
1750 f=F:g=G 
1760 ENDPROC 
1770 : 

1780 DEFPROQmonster3 
1790 IF W=A GOTO 1800 ELSE W=W+3*(-1-2 
(W<A)):IF W<5 W=5 ELSE IF W>26:W=26 
1800 IF Z=B GOTO 1810 ELSE Z=Z+4*(-l-2 
(Z<B)) : IF Z<3 Z=3 ELSE IF Z>31l: 2=31 


* 


★ 


if 


★ 
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1810 IF (W=F AND Z=G) OR (W=M AND Z=N) 

: W=w: Z-z: ENDPROC 
1820 GCOL 3,1 

1830 MOVE 40*w,26*z:VDU 240:IF Start3= 
TRUE:start3=FALSE:GOTO 1830 
1840 MOVE 40*W,26*2:VDU 240 
1850 z=Z:w=W 
1860 ENDPROC 
1870 : 

1880 DEFPROCnumbers 


1940 ENDPROC 
1950 : 

1960 DEFPROCdead 


1970 SOUND 1,3,80,24 
1980 VDU 19,0,0;0;19,1,7;0; 

1990 TIME=0:REPEAT UNTIL TIME=250 
2000 man%=man%-l:IF man%>0 GCOL 0,128: 


CLS:PROCsetup:Q%=Q%-l:score%=score%-50: 


GOTO 160 


1890 MOVE 40*(K%-14.7-(Q%>9)),26*L%:GC 
OL 0,2:PRINT Q% 

1900 k%=3*RND(7)+2:1%=4*RND(7)-1:IF k% 

=K% AND 1%=L%:GOT01900:ELSE K%=k%:L%=l% 
1910 GCOL 0,0:MOVE 40*(K%-14.7-(Q%>8)) 

,26*L%:Q%=Q%+1:PRINT Q% 


2010 VDU 4:PRINT TAB(2,10)SPC(21)"WOUL 
D YOU LIKE SPC(23) ;"ANOTHER GAME?(Y/N 
)"SPC(20) 

2020 *FX15 

2030 REPEAT KEY$=GET$:UNTIL INSTR("YyN 
n",KEY$)>0 

2040 IF KEY$="N" VDU22,6:END ELSE CLS: 
AGAIN=TRUE:ENDPROC 


1920 S=score%:score%=score%+50 


1930 GCOL 0,0:score%=INT(score%):MOVE 
64,896:PRINT S:MOVE 64,896:GCOL 0,2:PRI 


POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG POSTBAG 


LOCKED OUT 


As a newcomer to computing I have 

found ELBUG of great value. However, I 
have come across something that puzzles 

LOCKED' 

when 1oading prog r ams (including the 

TURTLE), but I have not 
found this in the User Guide. This only 
happens occasionally and I would 
appreciate your advice. 


a poor recording, or your 
recorder is not providing a good signal 
for the micro. 


and that 


me 


THE MISSING LINK 
Dear Sir, 

Am I missing out? I enclose two 

photographs of the Electron circuit 
board, one from a magazine review and 

one of my own Electron. The thing that 
is puzzling me are the two blank spaces 

on my board labelled IC17 and IC18. 

I would be pleased if you could 
enlighten me on the missing 'bits’. 

Robert Hamilton 


We1come tape 


J.S.Webster 


Reply: 

This 


described in 


that 

Guide. 


the User 

Machine code programs can be 

a 'LOCKED' form 


not 


Reply: 


that they may only be *RUN and not be 
*LOADed. This is used by some software 
producers as a means of protecting 

their copyright software. It involves 
setting just a single bit in the first 

block of such a program. Trying to 

*LOAD a locked program will produce the 
'LOCKED' message. 

Should any other program be poorly 
recorded, or not otherwise load 

correctly, the error can sometimes 
appear to the micro as though you 
trying to load a locked file, to which 

LOCKED'. 

The fact that it only happens 
occasionally confirms this. If the file 
really was locked then you would get 
this 

load that program. In this 

that either your Welcome tape is 


Paul HuIyer is another sharp-eyed 


reader who has spotted this difference. 


Nothing is effectively missing from 
anyone's Electron. Early examples of 
the Electron, sent out to magazines, 
including ELBUG, for review contained 

the Operating System as two 


separate 16K chips (IC18 and IC2 to its 


right). IC17 was needed for 


the micro 


to operate in this way. In the majority 
of production models of the Electron, 

the Operating System and Basic are both 
contained within the same 32K chip at 

IC2, and the chips at the other two 
locations are now quite redundant. 


message every time you tried to 


it 
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EXTENDING ASTAAD 

by David A. Fell 


1983 


we presented an excellent 


ELBUG 


In 


program for computer aided design. We said then that the program 
could be easily extended, and now we have done just that, to provide 


even more features. 


In the original version of ASTAAD, 

published in ELBUG issue 2, we showed 
how to extend the program in order to 


axaairSGim 


cassette and how to 


9 


load 

suggested further enhancements to the 
graphics facilities of the program. 


them 


We also 


ft 


FftU»d'In 


User O0fi 


This month, we describe how to add 
three important new features to improve 
further the capabilities of this 
already impressive package. The 


7 


The ability to include 
user-defined characters in 
'ASTAAD' text and display them 

any angle, 


1 . 


at 


any 

anywhere on the drawing'. 


size. 


All the new features are dealt with 
by control keys rather than function 
keys as follows. 


The facility to draw 

and polygons as well 


filled 


2 . 


as outlines only. 


Ctrl-C Toggle user-defined characters. 


The facility to 
foreground and background 
colours and thus include 'white 
on black' and 'black on white' 
text and diagrams in the same 
drawing. 


3. 


Ctrl-F Toggle filled/unfilled polygons 


Ctrl-T Toggle reversal of foreground 

and background colours. 


key, press the key 


a control 

marked 'CTRL' and the appropriate 
letter key together. Each time one of 
these control keys is pressed (or 
toggled), it changes the state of the 
feature selected (from 'on' to 


To 


or from 'off to 'on'). 


USER DEFINED CHARACTERS 


also the name given to 


'ASTAAD 

the routine brought into action 


is 


v 


pressing Func-f0. ASTAAD stands for Any 
Size Text printed at Any Angle on the 
Drawing. This facility, however, 

the original version, to 

the normal keyboard characters, 
extension has been provided to allow 

soft 


was 


limited, in 


An 


defined) 


for the 


(or 
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characters to be used instead. This 
allows for new characters to be 
designed, and then also drawn at any 
angle, and at any size. 


The 


choice 


of 


is 


controlled by Ctrl-C. With this in the 
’off 

program for the first time, ASTAAD 
behaves as it did in the old version of 


state, as it is when you run 


the 


the program. When in the 'on 1 


drawn. The selection between the two is 
made by pressing Ctrl-F. Initially, in 
ASTAAD2, 'in-fill' is turned off. This 
means that only the polygon's outline 
will be drawn. If Ctrl-F is now 

then the switch will be 
and the next polygon to be 

solid one. The next 
the Func-f3 option is used to 

last polygon drawn, then 
whether or not the polygon is filled in 
is dependent on 
the 'in-fill 1 switch, and not the state 
of the switch when the initial polygon 
was drawn. This feature also applies to 
the circle drawing routine selected by 
Func-f9. 


(selected by pressing 


Ctrl-C) , user 
defined characters are taken from the 


keyboard with 
224, 

on. The characters are displayed at the 


A' selecting character 
B' selecting character 225 and so 


top of the screen 


allows for the new string to be seen as 
it's being built up. The user defined 
characters must be 


altered, 
drawn will be a 
time 


before 


up 


running the extended version of ASTAAD 
(ASTAAD2) with the VDU23 statement (see 
User Guide pages 93 and 109). If you 

have already been running ASTAAD2, you 
may exit from this by pressing Break 

and typing in OLD and Return. You may 
now use VDU23 to re-define characters 
before running ASTAAD2 again, without 

reload the program from 
cassette. The character definer on the 

ELBUG introductory cassette is also an 

ideal way to design characters that you 

may like to use in ASTAAD2. 


the current state of 


the need to 


REVERSING FOREGROUND AND BACKGROUND 

When drawing lines, 
polygons, or any other ASTAAD function, 

colour is normally 
black, and the background colour white 
(readers may like trying yellow on blue 

to black on white by 
including an appropriate VDU19 at the 

see the User 
is a final 

the 


filling 


in 


the 


foreground 


As an example, try typing the 
following into your Electron: 


opposed 


VDU23,224,0,255,191,159,159,145,17,17 


the program 
107). There 

switch in ASTAAD2 that a 


Guide page 


Now load and run ASTAAD2, 
■Ctrl-C'. 


drawing colours. To alter this switch, 
press Ctrl-T. In the 


Func-f0 
Press f A' and Return. 

Enter a size, say 20, and Return. 
Enter an angle, say 10, and Return. 


for ASTAAD text. 


on’ state, just 


as when the program is first run, the 
drawing will normally be made in black 

on a white background. In the 'off 

state, the drawing will take place in 

the 


Now watch a primitive elephant being 
displayed. This illustrates that the 
soft character is now being read from 
the memory definition. 


This allows for 


reverse colours. 


the 'blank out an 
invoked 

rectangular area. Examples of the 

of the various functions, including 
reverse colour, are shown in the 
illustrations with this article. 


function, 

by Func-f8, to fill in a 


FILLED POLYGONS AND CIRCLES 


Another new feature, controlled by 
Ctrl-F, is the in-filling of polygons 


(and thus also circles, 


as they are 


EXTENDING THE ASTAAD PROGRAM 

The additions to the original ASTAAD 
program are listed below. They should 
be typed into the computer AFTER 
loading in the original ASTAAD, which 
must not have been renumbered in any 


drawn using the polygon routine). 
Normally, when a polygon is drawn in 
ASTAAD, it appears only as an outline, 
but ASTAAD2 allows for either an 


outline, or a solid polygon to be 
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lines 


895 IF G%=0 THEN ENDPROC 

910 LOCAL I%,K%,M%,N,C,S,B,D,R,T,Y 

911 IF E% Y=85 ELSE Y=5 

960 IF I%>1 THEN PLOT Y,K%,M% ELSE MO 
VE X%,Y%: MOVE K%, M% 

961 IF I%>1 AND E% PLOT85,X%,Y% 

971 IF E% PLOT85,X%,Y% 

1140 IF ERR017 THEN ON ERROR OFF:MODE 
6:REPORT:PRINT" at line ERL:END 

1995 : 

2000 DEF PROCcharacters 

2310 IF F%=0 THEN F%=159 ELSE F%=0 

2020 ENDPROC 

2030 : 

2040 DEF PROCcolours 

2050 Z%=NOT Z% 

2060 IF Z% GCOL0,128:GCOL0,1 

2070 IF NOT Z% THEN GCOL0,0:GCOL0,129 

2080 ENDPROC 

2090 : 

2100 DEF PROCread: LOCALXI, Y% 

2110 Y$=&B:?&B00=ASC(MID$(T$,C%,1))+F% 

2120 A%=10:CALL&FFF1 
2130 A%=&B01 

2140 ENDPROC 
2150 : 

2160 DEI’ FNread:PRINT'"’Text? ";:T$ 
2170 LOCAL 1%:REPEAT I%=GET 
2180 IF I%=21 THEN PRINT STRING?(LEN(T 
$) ,CHR$ (127)),* :T$="": I%=0 

2190 IF I%=127 AND LEN{T$) THEN VDU 1% 
:I%=0:T?=LEFT$(T$,LENT$-1) ELSE IF I%=1 
27 THEN VDU7:I%=0 

2200 IF 1% AND I%<>13 THEN T$=T$4CHR$I 
%:VDU I%+F% 

2210 UNTIL I%=13:CLS 
2220 =T$ 


way, since some of the new 
replace lines from the earlier version. 
Alternatively, 

separately using *SPOOL after typing it 
in, and then use *EXBC to append this 
to the original ASTAAD (see the article 
on Procedures and Functions in ELBUG 


the new section 


issue 5 for more information on the use 
of *SPOOL and *EXEC or consult the User 

Guide, page 200). 


We have also included 
version of line 350 (printed wrongly in 
the original version) and we suggest 
the deletion of line 150 if you do not 
want the audible ’beeping’ of the 
original program. 


I- fff 


i i 9 

w ■*“ m ■ * * * * ■ 


■ i ■ w 

# * * * 


* + 
# 

* 

i # 
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Sit 
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f ■ ■ P A f 


* 
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I- # 


■ 




+ 




w 


* # * 


+ 




# p 


4 ft ■ ■ ■ 


* + * # 


ft * • 

■ « i 

i a * i t i t f ■ f f f >P 




ri i ■■ 




0 0 * 0 
0 0 4 0 ■ f 

ft * I * P 


0 


m f ■* * 


a-***- 
i 0 m 0 i 
0 0 4 0 


ft ft 

f # # # 

0 # 0 « ft 0 * 0 


A 


ft * 


ft r ft ft ft ft 

0 ft ft ft ft 1 

* » * ■ * b * ft ■ * 




* 


+ A 

i 

¥ # * !■ 


P 


■r * 


■ 


i 






>fa 


111 * ■ 4 
■ * ft * fl # 




V B * * » i 


* 


ft ift 


ft 




10 REM Program EXTEND to ASTAAD 
20 REM Version El.3 

30 REM Author Jim Tonge 

40 REM ELBUG May 1984 

50 REM Program subject to copyright 

60 : 

61 E%^0:Z% 


il M 


1:F%=0 

80 ON ERROR:VDU 12,5,26:GOTO 1140 

131 IF key=6 E%=N0TE%:G0T0120 

132 IF key=3 PROCcharacters:G0T0120 

133 IF key=20 PROCcolours:G0TOl20 
350 VDU23,1,0;0;0;0; 

520 VDU4,28,6,1,59,1:T$=FNread:INPUT 

Size? (2 to 125): 

:CLS:VDU5,26 

550 IF F% PROCread ELSE A%=&BF00+ASC( 
MID$(T$,C%,1))*8 


If 


II 


S%,"Angle (deg.) ?"T% 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


N 


W 


CHANGING THE FLASH RATES 


the flashing colours flash, can be changed using *FX9,m and 
m and s are described below, 
forces the first named colour to show continually, 
sets the duration for the first colour, with m in 50t.hs of a second 


The rate at which 
*FX10,s wher 

*FX9,0 
*FX9,m 

*FX10,0 forces the second named colour to show continually. 

*FXll0,s sets the duration for the second named colour, with s in 50ths of a 


r 


second. 

Initially the values of m and s are 25. 


ft 0 ■ 0 4 


ft ft ft ft 


ft * ft ft 


ft ft 


ft ft- ft ft 


► 1 ft m 9 P 

* ft ft 
* ft -ft 


4 ft ft' 
ft ft ft ft ft- 
■ft ft * ft ft 


ft ft ft 

W ft 


• ft ft' 


ft ft ft ft 
ft ft ft # ■ 0 * 

ft ft ft ft 


■ 


■ 


■' 


0 0 
ft ft 


ft ft 

ftft-frftft-ftftftftftft-ft'ftft ftftftFftft-ft 

ft .ft ft ft ■ ft ft 


ft 


ft 


V ft s 

ft ft 

ft li¬ 


ft * ft 


*■ 


■ ft ft 


I 


I 


■ 
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ft 
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ft I 
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F 


ft 


ft ft 


ft ft -ft ft ft 
ft ft . 0 


ft 


ft ft ft- ft 

i ft- « # ft 


ft- * ft b 

* * ft a 


* * * « 'ii ft ft ft- * 

9 ft 


ft -I 


ft ft I 


ft -ft ft ft 
ft -ft ft 
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ft 


ft ft ft * ft ft 
ft * ft « 


ft ft 


ft' 


E 


ft 


■ 
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ft 
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0 
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r 


0 


■ ■ 0*0 


■ 0 * 


ft ft 


ft 


ft I 


ft 


ft 


■ 


■ 


0 


. 


ft 


j 


ft i 


■ 


ft 


a 


■ 


STEPPING THROUGH LISTINGS 

To step through a listing, without it scrolling, enter the following command in 

immediate mode: 

VDU 14 <return> 

Every time you list the program, the computer will list a page at a time. To get the 
next page, press Shift. A similar effect can be obtained by holding down the Control 
key (marked 'CTRL', and just to the left of the 'A' key) and pressing 'N 1 (Ctrl-N). 
The effect can be stopped by entering VDU 15 or pressing Ctrl-O. Listings can 
be temporarily halted by pressing Ctrl and Shift together. 


S.WARD 


also 


Volume-1 Issue-6 


May 1984 


ELBUG 







INVISIBLE ALARM 


by Gordon Weston 


many times have you sat up all 


How 


night long programming your 


Electron 


when you 


to finish in five 


out 


minutes? We present here 


short 


a 


routine which will sound an alarm after 


any preset period of time, up to a year 


ahead if you wish! 


The alarm program will sit invisibly 


in your machine and produce a beep 


a predefined delay. This can be 


after 


anything from a fraction of a second to 
several hundred years (though this has 

not been fully tested yet!). The alarm 

by running Basic or 
machine code programs providing the 
memory used by this routine is not 


Lines 130 and 140 set up 
block in memory (&70 TO &77) which 


control 


defines the sound parameters to be used 


when the time limit has been reached. 


and 180 then point to &007D 

code 

generate the sound is 

up the OSWORD 
parameters to write the five byte value 
at &0078 to the interval timer, which 
is subsequently called in line 200. 


Lines 


170 


in memory, where the machine 
routine 

stored. Line 190 


overwritten or Break is pressed 


to 


When you run the program it asks for 
the time delay in seconds. Type in the 

delay, and then carry on with 


requi 

whatever you want to. When the period 
of time is up, your Electron will sound 

an alarm. Unfortunately 
been able to provide a 'snooze' button 


It is possible to execute 


your own 
of machine code after the time 


we have no t 


delay, rather 
beep. This is accomplished by deleting 
lines 130 and 140 and 210 to 280. Lines 

170 and 180 must now point to the low 
and high bytes, (currently 7D and 0) 


than just generate 


a 


TECHNICAL NOTES 

The alarm routine has to be in 
machine code so that it can be 
in an area of memory not used by Basic. 
In this way you can be using Basic 
without in any way affecting the alarm 
set. Memory from address &70 (in hex) 
up to &8F is reserved for routines like 
this. Take care when typing in the 
program, and remember 
before running it. 


up 


of 


your code. 


10 REM Program ALARM 
20 REM Version El .0 
30 REM Author G.Weston 


to save a copy 


40 REM ELBUG May 1984 

50 REM Program subject to copyright 


The program uses a timer which is 
initially to a negative value (the 
number of centi-seconds before the 
alarm is to sound). Your micro has a 
built in 'clock' which will keep on 
increasing the timer until it reaches 
zero, at which time the alarm routine 
is called. 


60 : 


100 INPUT " 

110 n=n*l00 
120 *FX14,5 

130 !&70=&FFF10001 
140 !&74=&001400C8 

150 !&78 
160 ?&7C=&FF 

170 ?&220=&7D 
180 ?&221=0 

190 A%=4:X%=&78:Y%=0 
200 CALL &FFF1 


210 P%=&7D 
220 [0PT3 

230 LDX#&70 
240 LDY#0 

250 LDA#&7 
260 JSR&FFFl 
270 RTS 
280 ] 

290 END 


n 


The time delay is set as 5 bytes in 
lines 150 and 160. The counter 

upwards from the negative value given 
to zero. 
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SELECTIVE 
RENUMBER UTILITY 




by G, and L. Pettit 


This month we present a useful utility program which allows 
selective renumbering of Basic programs, a much needed aid for Basic 
proqrammers. 

The RENUMBER command in BBC Basic is 
limited in its usefulness, as you can 
only renumber a whole program, and not 
just part of a program. It is often 
desirable to number different parts of 
a program with different groups of line 
numbers. For example, most programs 

all the 

procedure definitions starting at line 
1000, just to make the layout of the 

program clearer. Many program standards 
(including ours for ELBUG magazine) 
require that each program include 
initial REMs containing dates, author's 
name, peripherals required, algorithms 
employed, etc. Since no two programs 
will have identical REMs, the main 

at different line 
numbers if blanket renumbering is used. 


any confusion 


parameters, 

occurs. 


Although line numbers within REM 

altered, line 


s ta temen t s 
numbers in all other statements will be 


not 


changed, including calls from the 

non-renumbered statements. Thus if 
subroutines are being renumbered, calls 

from the main program are changed to 
match, or if only a part of the main 
program is being renumbered, the GOTO 
or RESTORE instructions in the rest of 
the main program will be changed if 


listed in the magazine place 


PROGRAM OPERATION 

First type in the Selective Renumber 
program and SAVE on 
usual way. The description that follows 

have 
under 


program will start 


assumes that you 


the 


instance where selective 


Another 

renumbering is most useful is in using 
procedure libraries as an addition to a 
main program (see ELBUG issue 5). These 
train programs will inevitably be of 
different lengths and, if the 
Electron's RENUMBER command is used on 
the resulting total programs, the line 
numbers of the procedures will differ 
from one program to the next. This 
makes recognition of the procedures 
difficult. 


Renumber 


the 


program 

'RENUM', though you could of course use 
any name. To use the program, make sure 

that you are in Mode 6, load the Basic 
program to be renumbered, as normal, 
then type 


name 


PAGE=T0P+&100 
LOAD"RENUM 


<return> 

<return> 

<return> 


IV 


RUN 


This procedure will prevent the 
Renumber program over-writing the 

assuming this is 

already resident in memory at &E00. The 
value TOP+&100 has been chosen so that 
the renumber program is loaded in at 
the next page in memory, just above the 

program, thus giving the maximum 
space for work. 


user's program, 


It is to cater for these and other 


situations, where selective renumbering 
is to the programmer's and end-user's 
advantage, that the Selective Renumber 
program has been written. It allows 
renumbering of the leading statements 
only, or of a portion of the middle of 

the coding, or of the end statements 
only. The new starting line number and 

the new increment (applied to 
renumbered lines only) are specified by 

the user and the program will inform 
him if there is any overlap between 

existing line numbers and the new ones 
BEFORE renumbering takes place. The 

user may therefore withdraw from an 
overlap situation and 


When Selective Renumber is run, the 

program will first check that the 
user's program has been loaded. If not, 
an error message is displayed and the 
Renumber program will stop, to allow 
the user to reset PAGE to &E00 (type 
PAGE=&E00 <return>), to load his 
program and to 

T0P+&100 (type PAGE=T0P+&100 <return>). 
When RUN 


the 


PAGE again to 


re-specify the 
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the range of line numbers to be 
renumbered. This may be answered by 


Electron RENUMBER command, this may get 
you back into production again. 


for all lines up to nnn 

for all lines between mmm 
and nnn inclusive 

for all lines from rrmm 
onwards. 


, nnn 
mmm , nnn 


f 


VARIABLES USED 


The array E% contains the 

numbers of the original program, and 
the array F% contains the equivalent 

line numbers in the renumbered portion 
of the program. Initially, all 'elements 

1 and this is used as 

an indication of the renumbered range. 


1 ine 


or 


t 


mmm , 


The program will 
new initial line number and 
increment, for the 

renumbered. If the resulting 
numbers would conflict with 


next request the 


of FI are set to 


new 
to be 
line 
the 

unchanged numbers, a message will ask 

if he wishes to abandon the 


N% is PAGE for the program to be 

renumbered. 

L% is the total number of 1ines in the 

program. 

G% is the first line to be renumbered. 

to be renumbered. 

D% is the new starting line number of 

the renumbered part. 

M% is the increment of the line 


the 


renumbering. If he abandons the run, 

his program will be unaltered, 
otherwise the renumbering will 
carried out without further messages. 
At the end of the run, the user must 
return PAGE to its original value by 

typing PAGE=&E00 <return> before 

listing his program. 


is the last line 


HI 


numbers in the renumbered part. 

as they 


P% counts the lines 


renumbered. 


* ■ ■ * 

* # ■■ » 


V ■ ■ 


9*9* 


* f ■ V V 

9 * V # * 


* -r 


* f 




* m ¥ 


*999 


mm* 


9 9 ‘V * 


* m 


* * 


* i « « 


* . * * * m m 

» 1 * * ■* * * 
9 9 9 9 9 # * 


*9 9 9 


iff# 


■ -i * 9 


m * t_V i _■ 


* « 

* * 9 * 

n mmm- 


9 


tfiBlCfi 
p w m i m * n ir 


* « 


* * * I * * 

■ Via 


* * mm * V # V ■■ tV 




V 4 i * 


* W * C * 9 


ffl I 


■ m 


mm** 


■ m 


10 REM Program RE MUM 

20 REM Authors G & L Pettit 
10 REM Version E1.0 

40 REM ELBUG 
50 REM PROGRAM SUBJECT TO COPYRIGHT 


EXPLAINING PAGE 

Part of your computer's memory is 

own use. The point 
where your own program starts is always 
stored 


MAY 1984 


100 ON ERROR GOTO 230 
110 N%=&E00 

120 MODE6:PRINTTAB(6,2)"SELECTIVE REN 

UMBER PROGRAM 
130 PROClines 

140 DIME%(L%),F%(L%) 

150 PROColdlines 
160 PROCnewlines 
170 PROCtest 

180 PROCline_ren 
190 PROCinfill 
200 PRINT"Time = 

210 END 
220 : 

230 ON ERROR OFF 
240 MODE 6 

250 IF ERR017 REPORT: PRINT 


a 


variable called PAGE. On the Electron 
this is normally set to &E00 (3584 in 

decimal), when you first switch the 
computer on. To check, type PRINT PAGE 
<return> 


/ 


it 


be 


to other 


PAGE can 


values for special purposes, usually so 


that a program can be located in a 
different part of 
possible, 

than one program in memory at the 

time. 


It 


memory. 

in this way, to have more 

same 

This happens when the RENUMBER 
program and your program are in memory 

together. 


is 


n 


TIME DIV100 


If 


M 


at line 


i r 


Finally, when running the program, 

no te tha t it 


I! 


please 


;ERL 
260 END 
270 : 

1000 DEFPROClines 


an 


appreciable time to renumber even a 
small part of a long program. Don't be 
impatient, just be thankful you're not 
having to edit all the line numbers on 
the 


1 01 0 finish=FALSE:L%=0:Cl=N% 


and go and file your 
letters or read ELBUG, while your micro 

you. You won't use 

every few minutes, but 

a tight corner with 

can't use the 


1020 REPEAT 

1030 IF ?(C%+1)=&FF finish=TRUE:GOTO!0 


does the job for 


50 


this program 
when you get in 
line numbers. 


1040 C%=?(C%+3) +C%:L%=L%+1 


1050 UNTILfinish 


1060 ENDPROC 


and you 
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1550 IF Q%<G% OR Q%>H% PRINT"Clash in 
line ";Q%:clash=TRUE 
1560 ENDPROC 
1570 : 

1580 DEFPROCline_ren 
1590 C%=N% 

1600 F0RI%=1TOL%:F%=F%(1%) 

1610 IF F%--1GOTOl640 
1620 ?(C%+1)=F%DIV256 
1630 ?{C%+2)=F%MOD256 
1640 C%=C%+?(C%+3) 

1650 NEXT 
1660 ENDPROC 
1670 : 

1680 DEFPROCinfill 

1690 finish=FALSE 
1700 C%=N% 

1710 REPEAT 

1720 B%=?C%:IF B%=&20 C%<%+1 : GOTOl 720 
1730 IF B%=13G0T01790 
1740 IF B%=&22 REPEAT C%=C%+1:B%=?C%:U 
NTILB%=&22:C%=C%+1:GOTOl720 
1750 IF B%<&8B GOTOl770 
1760 IF B%=&8B OR B%=&8C OR B%=&E4 OR 
B%=£tE5 OR B%=&F7 PROCsub 
1770 C%=C%+1:GOTOl810 
1780 PRINT“R%,~S%,~T% 

1790 IF ?(C%+1)=&FF finish=TRUE:GOTOl8 


1070 : 

1080 DEFPROCoIdlines 

1090 C%=N% 

1100 FORI%=lTOL% 

1110 E%(I%)=(?(C%+1))*256 K?(C%+2) 

1120 C%=C%+?(C%+3) 

1130 NEXT 
1140 ENDPROC 

1150 : 

1160 DEFPROCnewlines 
1170 FORI%=lTOL%:F%(1%)=-l:NEXT 
1180 N$="***Must be numbers***" 

1190 PRINT'"Give line numbers of first 
and last" 1 "lines to be renumbered. 

Use the format e.g. 

1200 INPUT" or 
line 250)"'" or 100, 
e 250 to end)"',G$,H$ 

1210 IF ASCG$=-1 G%=0:GOTOl230 
1220 G%=VALG$: IF G%=0 AND G$O"0"PRINT 
'N$:G0T011 90 

1230 IF ASCH$=-1 H%=E%(L%):GOTOl250 
1240 H%=VALH$:IF ^OPRIN^ N$: GOTOl 190 
1250 INPUT "'Give new line number for f 
irst line and increments (e.g.200,10) " 
D$,M$ 

1260 D%=VALD$:M%=VALM$:IF D%=0ORM%=0PR 

INT'N$:GOT01250 
1270 P%=0:TIME=0 

1280 PRINT "'Delay for processing" 

1290 FORI%=1TOL% 

1300 IF G%>E%(I%)THENY%=E%(I%);GOTO1340 
1310 IF H%<E%(I%)G0T01340 
1320 Z%=I% 

1330 F%(1%)-D%+M%*P%:P%=P%+1 
1340 NEXT 

1350 P%-D%+M%*(P%-1) 

1360 ENDPROC 
1370 : 

1380 DEFPROCtest 
1390 clash=FALSE 
1400 FORI%=lTOL% 

1410 Q%=F%(1%):IF Q%=-1GOTO!460 
1420 F0RJ%=1T0L% 

1430 IF Q%<E%(J%) J%=L%:GOTOl450 
1440 IF Q%=E%(J%) PROCclash 

1450 NEXT 
1460 NEXT 

1470 IF (Z%+1)>L% Z%=L%~1 
1480 IF D%<=Y% PRINT "'Your ranges over 
lap!":clash=TRUE 

1490 IF (Z%+1)>L% OR D%>E%(L%) GOTOl510 
1500 IF P%>=E%(Z%+1) PRINT'"Your range 
s overlap!":clash=TRUE 
1510 IF clash INPUT'"Do you want to go 
on (Y or N) "A$:IF A$<>"Y"ANDA$<>"y" E 


11 1 ? ll 


100,250 
,250 (renumbers up to 

(ditto from lin 


II 


10 


1800 C%=C%+4 

1810 UNTIL finish 
1820 ENDPROC 
1830 : 

1840 DEFPROCsub 


1850 C%C%+1 :B%=?C%:IF B%=&20 OR B%=&E 


5 GOTOl850 

1860 IF B%O&8DGOTO2060 

1870 C%=C%+1:U%=0 

1880 R%=?C%:S%=?(C%+1):T%=?(C%+2) 

1890 S%=S%-&40 
1900 T%=(T%-&40)*256 

1910 IF R%M0D&10=0 U%=16384:R%=R%+&4 
1920 IF R%=&54 R%=0:GOTOl960 

1930 IF R%=&44 R%=64:GOTOl960 
1940 IF R%=&74 R%=128:GOTOl960 

1950 IF R%=&64 R%=192 
I960 0%=U%+R%tS%+T% 

1970 FORI%=1TOL% 

1980 IF E%(1%)<>0% GOTO2020 
1990 IF F%(1%)= 

2000 PROCinsert 
2010 I%=L% 

2020 NEXT 


1 GOTO2010 


2040 B%=?(C%+1):IF B%=&20 C%=C%+l:GOTO 
2040 

2050 IF B%=&2C C%=C%+1:GOTOl850 
2060 ENDPROC 
2070 : 

2080 DEFPROCinsert 


ND 


1520 ENDPROC 
1530 : 

1540 DEFPROCclash 
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2090 U%=F%(I%) 

2100 V%=U% DIV&4000 
2110 W%=U% MOD&4000 
2120 S%=W% MOD64+&40 
2130 T%=W% DIV256+&40 
2140 U%=W% MOD256 
2150 W%=U% DIV64 


2160 IF W%=1 W%=-&10:G0TO2190 
2170 IF W%=2 W%=&20:GOTO2190 
2180 IF W%=3 W%=&10 

2190 R%=W%+&54-4*V% 

2200 ?C%=R%:?(C%+1)=S%:?(C%+2)=T% 
2210 ENDPROC 


NEW PRODUCTS AT THE MICRO USER SHOW 


by Nigel Harris 


boxes to allow the use of joysticks on 

the Electron (inclusive prices £24.95 
and £16.95 respectively). Both support 

the Atari type of switching joystick. 
There are a large number of joysticks 

to this standard already available. 
However, as many BBC owners have found 

functionally 


At the last Micro-User exhibition at 
the end of March it was evident that 
firms already involved 
manufacture of add-ons for the 
Electron’s 'Big Brother’ computer have 
more than just an 

similarly developing Electron market. 
Spurred on by the belief that the 
Electron will be as successful 
BBC micro, a number of devices are 

that will extend 
the Electron's facilities towards that 

of the Beeb. This will greatly enhance 
the capability of this very attractive 
micro, and allow a much wider range of 
software to be used. 


the 


in 


for a 


eye out 


out, there 
different types of joystick around. One 

is the switched type that these 

for, which is quite 

The other is 
the continuously variable type that 
allows the input of infinitely many 

values if required to the 
computer, and is often used for more 
serious graphics applications (this is 

the analogue type of system that is 
standard on the BBC micro). Like the 

joystick 

interfaces will plug into the back of 
the Electron, but neither extends the 
expansion interface to allow for other 
add-ons. They must come at the end of 
one that has been expanded, or other 
add-ons to the Electron unplugged. 


two 


the 


interfaces cater 


beginning to appear 


suitable for games use 


intermediate 


DISC SYSTEMS 

Pace were showing early versions of 
their disc interface for the Electron. 
Due for release around June, it plugs 
on to the edge-connector at the back of 
the Electron. This of course, would 

allow you to load and save programs on 
floppy disc much more quickly than 
cassette, very useful to anyone who 
continually finds themselves waiting 
for their cassette recorder. Floppy 
disc drives are quite complex devices, 
and require direct computer control. A 

complete disc system would normally 
therefore, come complete with 
filing system program to control the 
interface between the computer and the 
disc machine, and render many disc 
transactions invisible to the user. The 


disc 


interface 


p + 


Addresses of suppliers: 


Pace Disc Systems, 


92 


a disc 


St., Bradford BD5 8BS. 


Byte Computing, 10 

Main Centre, Derby 


First 
Castlefields 

DEI 2PE. 


Pace disc interface 


will be supplied 
with their own 'DFS 1 which, they say is 
functionally equivalent to their 'AMCOM 

already available for the BBC 
micro. (We shall 


Signpoint Ltd 
London E5. 


166a Glyn Road, 


* / 


DFS 


look at discs in more 


[We hope to review the two joystick 
interfaces more fully in the next issue 

of ELBUG.) 


detail in a later issue of ELBUG). 


JOYSTICKS 

Two firms, First Byte Computers and 
Signpoint Ltd, had on show interface 




« * 


■** - i - - - - - - 




■■ ■ 4 


* * 
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100 PROGRAMS FOR THE ACORN ELECTRON 


Reviewed by Mike Williams 


This book, and cassette of the same title, can be purchased together 

100 programs is a lot of computing in either format 

but is it value for money? Mike Williams looks at this wall produced 


package and reports. 


100 Programs for the Acorn 
Electron 

Publisher:Prentice Hall International 

£6.95 (book) 

£11.50(cassette) 


Title: 


Price: 


The book contains a listing of each 
program which is clearly printed 
(unlike many computing books), with 
many instructions indented to clarify 
the structure of the program. Each 
program is accompanied by brief notes 
on the use and design of the program in 
question. The binding of the book made 
it very difficult (in fact impossible) 
to keep the book open at any listing, 
so that typing in any program was very 

much a one handed and somewhat 
difficult task. 


even the instructions for their use in 
some cases, are often frustratingly 
short in the information provided. Many 
of the programs should really be 

considered as basic routines which the 

into a more 

program. As such, this 

invaluable 
resource, particularly for the novice 

programmer. In view of this, 
is unfortunate that the notes 

accompanying many of them are so short, 
with often inadequate explanation of 
how the program works. 


is well packaged to 
look like the book, and comes complete 
with a 32 page booklet containing notes 
on each program, very similar to those 

in the book. The only omission here is 
the book's list of contents 
conveniently classifies the programs 
under various headings,and a general 
introductory chapter. 


reader could integrate 
polished 

collection could form an 


which 


With 100 programs on offer, clearly 
the emphasis is on quantity, rather 
than quality,and consequently many of 
the programs 

cover a wide range including games (of 

home 

applications, mathematics and science 
applications and graphics examples. I 
believe that there 


Despite some of the criticisms that 


quite sho r t. They 


I have made above, I am sure that many 
Electron owners, interested in learning 
more of programming, will find much of 
interest in these programs. Either book 

on their own would be 


and 


business 


course) , 


or 


too many 

mathematical examples for the typical 
Electron user, and in contrast, there 
is insufficient coverage of string and 

text handling, 
the author's academic background, but 
even so, current ideas on the teaching 
of programming have long since moved on 
from the idea of the computer as a 
number machine. 


sufficient, the former giving the 
advantage of printed listings for 
reference, the latter the convenience 
of direct cassette loading. Few people 
will quibble at programs costing a mere 
7p (book) or 11.5p (cassette) each, 
though I do believe that half the 
number of programs and twice the 
explanation would have provided a more 

useful publication. But then, I 
suppose, the title wouldn't have been 

quite so eye-catching! 


This perhaps reflects 


The program descriptions, and indeed 
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ELECTRON GRAPHICS (Part 6) 


by Mike Williams 


This month in our series on Electron Graphics we look at some of the 

more interesting and also amusing effects that can be achieved using 
the PLOT command. 


Last month we looked at how to use 


choice of all 16 colours. Line 110 

yellow as the drawing colour, 
and the background is black by default. 

The PLOT instruction in line 120 starts 
at the point (640,512), the centre of 

the graphics screen, and draws a yellow 
line horizontally right and left till 


the PLOT85 command to produce a variety 


of filled in shapes, but all based 


on 


the triangle. It would be rather nice 

us to fill in and 


if Basic allowed 


any shape, and indeed BBC Basic 


colour 

does just that in another variation 
the PLOT comtand. 


of 


At this point it will be useful to 
introduce 

outline circle in white, and of any 
radius and in any position on the 

very similar to the 

basic circle routine described in part 
4 of this series in ELBUG issue 4. The 

is the inclusion of a 
GCOL coomand to ensure that the 
is drawn in white, while VDU29 is used 

origin back to 

after moving it to the centre of 

at the 

procedure. Here is the procedure: 


To fill in an area of literally any 
shape on the screen is in fact quite a 
complex task, and although this can be 
achieved just using 

concentrate on some much simpler but 

useful 

routines. Sophisticated fill routines 
are included in cootnercially available 
graphics packages such as the 'Electron 
Graphics 

Software that we reviewed in ELBUG 


procedure to draw an 


a 


we shall 


screen. This is 


fill 


never-the-less 


very 


System' 


from Salamander 


to reset the graphics 


4, and in PAINTBOX shortly to be 


( 0 , 0 ) 

the circle 


released by us for the Electron. 


of the 


The fill instruction that 
be using takes the form: 


shall 


we 


PLOT77,x,y 

where the ’77' specifies which PLOT 

option we are going to use, and ' x,y' 

to a point on the screen in the 

graphics 


1000 DEF PROCcircle(radius,x,y) 

1010 LOCAL angle,X,Y 

1020 VDU29,x;y;:GCOL 0,7 

1030 MOVE radius,0 

1040 FOR angle=0 TO 2*PI STEP PI/16 

1050 X-radius*COS(angle) 

1060 Y=radius*SIN(angle) 

1070 DRAW X,Y 
1080 NEXT angle 
1090 VDU29,0;0; 

1100 ENDPROC 


This 


co-ordinates. 


usual 

instruction draws a line in the current 


drawing colour to the right and to the 
left of the point given. The line is 

continued in both directions until a 
point is reached which is not in the 
background colour. 


or the edge of the 


screen is reached. 


Assuming that you have typed this 
procedure into your Electron, add this 
variation on our first program given 
above: 


Now this may well sound 
complicated, and you might also be 
wondering how this can be used to fill 

since the instruction just 
draws a straight line. Let's look at a 
very simple example: 

100 MODE 2 
110 GCOL 0,3 

120 PLOT77,640,512 

130 END 

We shall be using Mode 2 in all the 
examples this month as it allows us the 


rather 


in 


100 MODE 2 

110 PROCcircle(200,640,51 2) 

120 GCOL 0,3 
130 PLOT77,640,51 2 

140 END 

This very short program draws a white 
circle of radius 200 and with its 
centre at (640,512). The PLOT command 


ELBUG 


May 1984 


Volume-1 Issuc-6 


17 


Now although this 
quite well, it is very easy indeed to 
improve the speed. To see how, we 
to refer back to a previous article in 

in ELBUG 

where we looked briefly at screen 
resolution. 


to work 


in line 40 draws a yellow line as 

soon 


before, but it stops 


it 


reaches the circumference of the circle 


this 


longer the 


is no 


background colour. 


this series, that 


4, 


might 

variations on this program, by changing 
the x and y co-ordinates given in the 
PLOT command. You should find 
long as you choose a point inside the 

you get a horizontal yellow 
line inside the circle. If you choose a 
point that is outside the circle, then 
the line will reach at one end to the 
circumference of the circle, and at the 
other end to the edge of the screen (or 

indeed to both edges of the screen). 
The usefulness of this PLOT instruction 

lies in the fact that we do not need to 
know in advance where the ends of the 
line will be. 


like 


You 


to try some 


Mode 2 that 


we have been 


us l ng 

provides low resolution graphics, and 
the screen actually consists of 160 
points horizontally by 256 points 

vertically, compared with the graphics 
co-ordinates that we 


that as 


of 1280 by 
1024. What this means is that in the 


vertical direction, 


for example, we 
have to move by a minimum of 4 graphics 
units in order to move 1 physical point 

If we move in steps of 
less than 4 then we are still referring 
to the same physical screen point. 


on the screen. 


means that in our Mode 2 
programs any vertical movement in steps 
of less than 4 is wasted, and in the 
horizontal direction 
at least 8 to move physically on the 

If we return to our previous 

we can 


This 


to do now to fill 
completely the inside of the circle is 
to repeat the PLOT77 command from the 
bottom to the top (or top to bottom if 


All 


we 


we need steps of 


see that 


program you should 
change line 130 to read: 


130 FOR Y%=312 TO 712 STEP 4 
If you run the revised program, you 
should find that you get exactly the 

result as before, but four times 


Similar 


apply 

graphics modes. The minimum vertical 

(physically 256 

points on the screen), but the minimum 
horizontal step size varies according 

to the mode: 2 in Mode 0. 4 in Modes 1 


all 


in 


step size is always 4 


and 4, and 8 in Modes 2 and 5. 


We have now seen enough to write a 
more general fill routine, that will 
fill not just a circle, but any shape, 
though with some limitations. We will 

write a procedure that will 
point on the screen, and will fill the 
surrounding area. We will assume that 
the existing colour 
the point specified is the background 
colour 

area to be filled will be marked by 
lines or areas of a different colour, 

whichever 


your main program as follows: 


100 MODE 2 

110 PROCcircle(200,640,512) 
120 QCOL 0,3 
130 FOR Y%=312 TO 712 
140 PLOT77,640,Y% 

150 NEXT Y% 

160 END 


on the screen at 


and that the boundaries of the 


or the edges of the 


are reached first. 


If you run this program you should find 
that the white circle is neatly filled 
with a yellow centre (of course!). 
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In filling the circle we moved in 

one direction only, from bottom to top. 
With a more general approach, we no 
longer know where the boundaries are 
going to occur, and so we need to fill 
in the area in two sections, both 
starting from the point specified. The 
first section will be to fill in line 
by line moving vertically upwards from 
the starting point, and then to fill 
downwards from the starting point. In 
both cases we continue moving and 
filling until we encounter a point 
which is not in the background colour. 

The processes of first filling up 
from a point, and then filling down 
from the point are essentially the 
same, so this has been written as a 
procedure called PROCfi11updown, which 
is then called twice in the main 
procedure, PROCfill. These two 
procedures are defined as follows: 

1200 DEF PROCfill{colour,x,y) 

1220 PROCfillupdown(colour,x,y,4) 

1230 PROCfillupdown(colour,x,y-4, -4) 
1240 ENDPROC 
1250 : 

1300 DEF PROCfillupdown(colour,x,y,inc) 
1310 newy=y:background=POINT(x,y) 

1320 GCOL0,colour:GCOL0,128+background 
1330 REPEAT 
1 340 PLOT77,x ,newy 

1350 newy=newy+inc 

1360 UNTIL POINT (x,newy) Obackground 
1370 ENDPROC 


but this is exactly the situation for 
using REPEAT-UNIT L. We shall repeatedly 
call the PLOT77 command, as we move up 
or down the screen, until the colour of 
the next starting point is different to 
the background colour, again detected 
by using the POINT function. Because we 
are using REPEAT-UNIT L we must 
ourselves program the incrementing of 
the new value of y (newy) to move up 
(or down) the screen. 

The fill procedure itself simply 

calls the other procedure twice, once 
to fill up from the starting point, and 
once to fill downwards from the 
starting point. 

So now we have a general fill 
procedure that will enable us to fill 
in (or colour) any area, starting from 
any point on the screen. Some examples 
will soon expose the limitations of 
this procedure and you will begin to 
see why a really general fill routine 
is bound to be quite complex. 

Our procedure will fill any circle 

provided the starting point is directly 
between the highest and lowest points 
of the the circle. Any other position, 
and the filling will stop as soon as 
the starting point for each line 
reaches the circumference. You will 
also have to be careful about using 
this fill procedure for concave areas, 
or you may well find 'holes' being left 
unfilled. 


Let's look first at the procedure 
PROCfillupdown, as this is the one 
which does all the work. Notice the 
POINT instruction. This tells us the 
colour (as a number) of any point on 
the screen. The parameters x,y 
represent the starting point for 
filling an area, so the first task is 
to find the colour of this point and 
set it as the background colour using 
the GCOL command (lines 1310, 1320). 
Remember that background colours are 
always specified by adding 128 to the 
colour number. The other two parameters 
of this procedure are the colour to use 
for filling (colour) and the increment 
(inc) for filling up (4) or down (-4). 


Despite these limitations, this 
procedure does have a lot of uses, some 
of them quite amusing as we shall see 
in the two examples with which we shall 
finish this month's article. Both of 
these examples require all three 
procedures that we have already been 
using. The first example draws two 
overlapping circles on the screen, and 
then colours in each of the three 
enclosed areas with a different colour. 
Any problems are avoided by carefully 

selecting a central starting point for 
each area. Here is this example: 


100 MODE 2 

110 ON ERROR GOTO 510 
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150 PROCfill(2,640,51 2) 
160 PROCfill(4,840,512) 

190 END 


140 PROCcircle(50,840,612) 
150 PROCfill(4,440,612) 

160 PROCfill(4,840,612) 

170 PROCcircle(75,640,400) 
180 PROCfill(1,640,400) 

190 REPEAT 

200 PROCfill(5,440,658) 

210 PROCfill(4,440,568) 

220 Z=INKEY(200) 

230 UNTIL FALSE 
240 END 
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I hope that you will be able to think 
of further ways to experiment with this 
fill routine. Although a fill routine 
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The final example has to be run to see 

The program 

draws a large circle and colours it in. 
Two small 


the full effect 


first 


circles are then added and 


coloured as eyes, and 


a third 


added 


and 


coloured as a nose. 
REPEAT-UNTIL loop is then used 


A 


to 


repeatedly open and close one eye to 


give the effect of winking 

done by colouring in the eye with the 

same colour as the rest of the face, 
and then again with the colour of the 


This is 


eye. The starting points are carefully 


selected just inside the top and bottom 

each 


seem attractive, it can be be 

and the triangle plotting 
last month will often be 

simpler to use, particularly when the 
shape of an 
known in advance. Next month we will 

at more simple 

of the PLOT 


may 
complex, 
described 


to give the 


in 


realistic 


an 


closing and then opening again. 


to be coloured is 


100 MODE 2 

110 ON ERROR GOTO 510 
120 PROCcircle(400,640,512) 
125 PROCfill(5,640,512) 

130 PROCcircle(50,440,612) 


continue to look 

variations in 
command. 


the - use 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


* 


v 


SINGLE KEY RECOVERY - C.Luck 


The following single function key definition will attempt to recover as much of a 

bad program as possible, enabling it to be listed, and corrupt lines corrected. When 
you need it, press function key zero (Func-f0), and the computer will display the 


lines successfully recovered. 


KEY0MODE6:p=&E00:?p=l3:p?1-0:REPEAT:c=4:REPEAT:c=c+l:UNTILp?c=l 3:p?3=c:P.p?l*256+p? 

2:p=p+c:UNTILp?1=&FF|M 

This is much more limited than the Rescue program in issue 2 of ELBUG but might 
be well worth trying in the first instance. 


* 
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THE LATEST GAMES REVIEWED 


:737 Flight Simulator 


Assuming you are able to find your 
way back to the airport, the most 
challenging task of all is to make a 
safe landing. I found I 

practice this 
was able to 
successfully, and even more to do so 
regularly* The program helps by 
allowing you to practice just landings 
(as well as take-offs), and in the 
event of a crash {very likely) allows 
you to take a metaphorical step back 
and try again (a pity you can't do this 
with the real thing!). 


Title 

Supplier:Salamander Software 

:£9.95 


Price 


Reviewer:Mike Williams 

***** 


to 


times before I 


Rating 


land 


the 


plane 


fancied your 


have ever 


If 


you 

chances piloting a modern jet airliner, 
then this program gives 

this 


that 


you 


opportunity, 
simulation. You are 


compu te r 

the pilot of a 
Boeing 737 jet with a full display of 

instruments on the 


in 


screen in front of you. The top part of 

either shows 

impression of the runway during 
take-off and landing, or a radar plot 
of the runway approach and the 

immediate vicinity. 


visua1 


the 


a 


found this a fascinating and 
exciting program to use; one which is 
rather different from the normal run of 
computer games 


I 


and with many more 
there is 


to 


This is certainly a comprehensive 
and realistic simulation. The cockpit 
display adequately shows 22 different 
instruments, making good use of the 
Electron's graphics facilities. A 
further clue to your status is provided 
by the reassuring sound of the engines' 
turbine whine in the background. This 
amount of feedback is very useful for 
the 'pilot', as there are 27 keyboard 
commands to control all aspects of the 
plane! Fortunately there is also a very 
good manual, which not only lists in 

all the instruments and 
controls, but also gives you the 

information for take-off and 


Even though I can now 


take off and land reliably 
flight of up to half an hour, I don't 
think I'm quite ready for the 
thing. My only slight criticism is that 
I personally lost interest once I could 
take-off and land without coming too 
close to crashing the plane, although 
there are other features that could 


a 


maintain your interest longer (such as 
setting up a strong crosswind or 
specifying your own airport layout). 

the small criticism 


Despite 

thoroughly recommend this program. 


I 


landing. 


Take-off is not too difficult 

maximum thrust 


you 
to achieve 


just use 


then 


take-off speed and 


sufficient 

climb (make sure you raise the landing 

and retract the flaps quickly 
though). You can then climb the 
aircraft up to any height you like, 
banking and setting course as you wish. 
You'll soon find that you need to brush 
up on your navigation as the plane 
flies out of radar range and you have 
to rely solely on the instruments. 
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At one time, it was thought that a 

for the Electron 
would be impossible because of the 

the sideways 
scrolling and the extent of the 

graphics and movement involved. 
Alligata Software have not only proved 
this view wrong, but provided the 

fastest game I have so far seen for the 
Electron. 


version of Defender 


The idea of the game is to navigate 

your spacecraft over the surface of a 
planet, and to shoot the marauding 
aliens before they 
humananoids. If the aliens reach the 
top of the screen with a humanoid, they 

mutate and hunt you down with 
unbelievable 


abduct 


the 


GAMES WITH A 'BYTE' 

FROM ALLIGATA SOFTWARE 
Reviewed by Alan Webster 


ferocity, 
include other 


Additional 
undesirables 
such as baiters, pods and swarmers. An 
extra ship is awarded at every 10000 
points. 


Title 


BLAGGER 

£7.95 


Price 


Rating 


**** 


Like all 


good games, this one 


Blagger is 

for the Electron from 

Software. 

different screens, each with its 
title and level of complexity. It will 
take you a long time to get through the 

it's 


one of three new games 

Alligata 
It has twenty (yes twenty!) 

own 


requires a degree of practice before 


you appreciate how exceptional it is. 


A 


high score of 658,000 for Guardian was 
achieved by the author, Steven Evans, 

at the recent Micro User Show. However, 
if you don't quite measure up to this 
level, still send your high scores into 
us for inclusion in our high 
table for the Electron. 


well worth the effort. 


The object of the game 

the keys to a safe. Once all 
the keys on that level have been found, 
you can open the safe and proceed to 
the next level. There are a number of 


to 


retrieve 


Title 


BUG BLASTER 
£7.95 


Price 


Rating 


*** 


lifts and coveyor belts that have to be 

negotiated, as 'well 
different creatures to avoid. The game 


Bug Blaster is a very 
implementation of the 
called 


good 

game 

Centipede. The action takes 
place in a mushroom patch full of 

spiders, frenzied 

and a mushroom poisoning scorpion 
called 'Brian*. 


a host of 


is very simple to operate, needing only 


three keys, and is an excellent example 
of its genre. 


centipedes, 


GUARDIAN 

£7.95 

★ -k it 


Your main objective is to wipe out 

over. 


Price 


the centipedes before they take 


Rating 


The job is not too easy, especially in 


the later stages when the game speeds 


In my view, Guardian is the ultimate 
game for the Electron. This game is a 

of the arcade game called 


up and the action becomes 


fast and 


furious, although the early stages do 
tend to become rather boring after a 
while. 


version 

Defender, and it does run very well. 
Although speed limits the game to a 
four colour mode, the game is still 
fast and very smooth, with some of the 

best sound effects you are likely to 
find on an Electron. 


include a high 


table and extra life features. 


They are available direct from Alligata 

Software Limited, 

Sheffield SI 4ET. 
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LUNAR ESCAPE 

by C. J. Hall 


The following game, written entirely in Basic, is an implementation 
of the arcade game Lunar Rescue, where you control a space shuttle 
ferrying survivors from the lunar surface to the orbiting space 
ship. The game is quite fast, is fun to play and very addictive. 


choice of 


two skill 


You have a 


In this game, you have to 
rescue shuttle safely through a belt of 
asteroids, touching down on one of the 
three landing pads where you take on 
board a survivor. You then launch the 

craft away from the pad and steer your 
way back through the asteroids, finally 
docking safely with the main ship. The 
survivor disembarks, 
repea ted. Each 1anding 
since the landing pads are partially 
burnt away by the shuttle's thrusters 
during each launch, leaving a smaller 
landing pad for the next trip. 


a 


level 1 having fewer asteroids 


than 1evel 2 


number of asteroids increases and they 
also move faster as well as diagonally, 

making the game progressively harder. 


The listing is quite long and 

complicated, so take great care when 
entering the program as debugging could 

be difficult due to the complicated 
interactions between the various parts 

of the program. 


and the process is 


harder 


This is a deceptively simple game, 

is much harder to play 


which 

successfully than it might 
initially. Like all good computer games 
this one is quite addictive, and well 
worth the effort of typing it in. 


The four controls for the shuttle 
are as follows: 


shuttle from 
or launches 
from the landing 


craft 


main 


it 


pad. 

Return - brakes 


10 REM Program LUNAR 
20 REM Version E0.2 
30 REM Author C.J.Hall 


the shuttles 


climbs or descends. 


moves the shuttle left, 
moves the shuttle right. 


Z 


40 REM ELBUG MAY 1984 

50 REM Program subject to Copyright 


X 


60: 


100 ON ERROR GOTO 3540 


110 MODE 6:VDU19,0,4,0;0 


120 PROCinst 


130 PROCsetchars 


140 *FX4,1 


150 II%=RND(-TIME) 


160 IFS%<>“1 !&80=1000 


Skill level (1/2) 


I 1 H 


170 PRINT 


180 REPEAT:Z$=GET$:UNTIL Z$ 


1"ORZ$ 


If 


It 


2 
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450 PRINTTAB (0,30);SEA1$; 

460 PRINTTAB(0,29);:VDU234,234,232:PR 
INTSPC(34);:VDU233,234,234 

470 PRINTTAB(0,28);:VDU234,232:PRINTS 
PC(36);:VDU233,234 

480 PRINTTAB(0,27);CHR$232;SPC(38);CH 
R$233; 

490 PRINTTAB(9,29);WHT$;SPC(8);WHT$; S 
PC(8);WHT$; 

500 PRINTTAB(8,28);WHT$;WHT$;SPC(6);W 
HT$;WHT$;SPC(6);WHT$;WHT$; 

510 PRINTTAB(17,27);WHT$;WHT$;WHT$; 
520 IF IN%-TRUE GOTO I860 
530 L%=RND(25)+5 
540 M%=3 

550 PRINTTAB(L%,M%);SHIPS 

560 N%-RND(3)-2:IF N%=0 GOTO 560 

570 J%=0:K%-0 

580 TIME=0 

590 PROCsetastros 

600 PROCdispastros 
610 BBB%'FALSE 

620 REPEAT 

630 PROCmaninship 

640 PROQnoveastros 

650 UNTIL V%=TRUE 
660 REPEAT 

670 PROQnoveman 

680 PROCmoveastros 

690 PROCmoveship 

700 UNTIL BBB% OR U%=1 

710 IF BBB% THEN BBB%=FALSE:GOTO 620 

720 X%=0 

730 REPEAT 

740 PROCmoveastros 

750 PROCmoveship 

760 UNTIL INKEY(-99) 

770 PRINTTAB(QW%,K%+1)STRINGS(6,SP$) 

780 REPEAT 

790 PROCmoveastros 

800 PROCupwego 

810 PROCmoveship 

820 UNTIL BBB% OR DOCK<6:IF BBB% THEN 
BBB%=FALSE:GOTO 620 
830 PROChavewedocked 
840 *FX15,0 
850 GOTO 620 
860 END 
870: 

1000 DEFPROCmoveship:T%=L%+N%:IFT%=0 0 

R T%=35 N%=-N%:T%=L%+N% 

1010 L%=T%:PRINTTAB(L%,M%);SHIPS:ENDPR 


190 IF Z$="r’ G%=FALSE:AT%=5 ELSE G%= 
TRUE:AT%=10 

200 MODE4:VDU23,1,0;0;0;0;:VDU 19,0,4 


; 0 ; 


210 *FX1 5,0 

220 DOCK=20:LL%=1:S%=0:B%=1 7000:1%=B% 

:FI%=400:F%=FI%:X%=0:NS%=FALSE:U%=0:FLA 
G1%=FALSE 

230 NL%=3:IN%=FALSE:AN%=FALSE:D%=0:FT 
%=TRUE:A%=981434236:SP$=CHR$(32) 

240 W%=16777183:Y%=-66822:Yl%=-842972 


9:H%=!& 8 0:V%=FALS E:BBB%=V%:*FX11,0 
250 CLS:DIMX%(41),Y%(41),IX%(41),IY%( 

41):NG%=0 

260 L$=STRING$(40,CHR$238):PRINTTAB(0 


,0)"Score : 000000 


270 PRINTTAB(0,2);L$;:PRINTTAB(20,0) 

: 000000 " 


280 PRINTTAB{0,1)"Landers S 00";TAB(14 
,1)"Fuel : 0000";TAB(29,1)"Level : 00"; 

290 PRINTTAB(0,31)"Landings: This lev 
el 00 : This game 000"; 

300 SEA1$=STRING$(40,CHR$253) 

310 STMP$=STRING$(2, SP$) +CHR$247+CHR$ 
245+CHRS249+STRINGS(2,SP$)+CHRS10+STRIN 
G$(7,CHR$8)+SPS+CHRS243+SPS 

320 stm2$^sp$-k:hr$244+sp$k:hr$i 0+STRI 

NGS(7,CHR$8)+STRINGS(2,SP$)+STRINGS(3,C 
HRS248)+SPS+SPS 

330 SHIP$=STMP$+SP$+S1’M2$ 

340 QS^SHIPS:ANY$-STRING$(3,CHR$232) 
350 WHT$=STRING$(2,CHRS234) 

360 FORII%=0TOH%STEP(H%DIV100):PRINTT 

AB(37-LEN(STRS(I1%)),0);II% 

370 SOUND0,-!5,3,1:NEXT 

380 PRINTTAB(37-LEN(STRS(H%)),0);H% 

390 SOUND1,-15,150,4 

400 FORII%=1 TO 3:PRINTTAB(11,1);11%: 

SOUND0,-15,3,3:NEXT 

410 FORII%-20TOF%STEP20:PRINTTAB(25-L 
EN (STRS (11%)),1);11%: SOUNDS, -1 5,7, 1:NEXT 
420 SOUND1,-15,150,8:PRINTTAB(38,1)"1" 
430 MANSHIP$=STMP$+CHR$(255)+S , m2$ 

440 ENTER$=STMP$+SP$+SP$4<:HRS244+SP$ 


OC 


1020: 

1030 DEFPROCmaninship:T%=L%+N%:IFT%=0 
OR T%=35 N%=-N%:T%=L%+N% 

1040 L%=T%:PRINTTAB(L%,M%);MANSHIP$:IF 
INKEYS(2)<>SP$ ENDPROC 
1050 V%=TRUE:PRINTTAB(L%,M%+2);SPC10:P 
RINTTAB(L%+3,M%+1);SP$ 
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1420: 

1430 DEFPROCupwego 
1440 X%-0 

1450 IF INKEY(-98) X%=-1 

1460 IF INKEY(-67) X%=1 

1470 IF INKEY(-74) PROCwaitabit 

1480 IF AN%=TRUE AN%=FALSE:ENDPROC 
1490 PROClessenfuelbyone;J%=J%+X% 

1500 IF BBB%=TRUE THEN ENDPROC 
1510 IF J%<0 J%=0:X%=0 
1520 IF J%>39 J%=39:X%=0 
1530 IF K%<6 DOCK-5:ENDPROC 
1540 IF K%<9 SHIP$=ENTER$:PRINTTAB(L%, 
M%+2);SRC(7) 

1550 K%=K%-1 

1560 PRINTTAB(J%-X%,K%+1)SP$; 

1570 P%=!((K%*40*8)-J-4+&5800+(J%*8)) 
1580 PRINTTAB (J%, K%);CHR$(255); 

1590 IF P%=0 ENDPROC 
1600 PROCIosealife:BBB%=TRUE:ENDPROC 

1610: 

1620 DEFPROChavewedocked 

1630 PRINTTAB(L%,M%+2)SPC6 

1640 IF J%<L%+2 OR J%>L%+4 YES=FALSE E 

LSE YES=TRUE 

1650 IF YES=FALSE J%=J%-X%:PROCloseali 

f e:BBB%=TRUE:ENDPROC 
1660 PRINTTAB(L%,M%);MANSHIP$ 

1670 SHIP$=Q$ 

1680 J%=L%+3:K%=M%+1 

1690 IF NS%=FALSE oldfuel%=F%:F%=F%+1 0 
0:IF F%>FI% THEN F%=FI% 

1700 IF NS%=FALSE PROCdispfuel(oldfuel 


1060 SOUND1,-15,220,1:J%=L%+3:K%=M%+3 

1070 PRINTTAB(J%,K%);CHR$(255):PRINTTA 

B(L%,M%);SHIP$:X%=0:ENDPROC 
1080: 

1090 DEFPROCsetastros 
1100 FOR Q%=0 TO AT%+1 
1110 X%(Q%)=RND(37)+1 
1120 Y%(Q%)=RND(18)+6 
1130 IX%(Q%)=RND(5)-3:IF IX%(Q%)=0 GOT 
0 1130 

1140 IF G%=FALSE GOTO 1160 

1150 IY%(Q%)=RND(3)-2 

1160 IF Q%MOD5=0 PROCmoveship 

1170 NEXT 

1180 ENDPROC 

1190: 

1200 DEFPROCmoveastros 

1210 IF AT%<10 BG%=1:E%=AT%:GOTO 1240 
1220 IF FT%=TRUE BG%=1:E%=AT% DIV 2:FT 

%=FALSE:GOTO 1240 

1230 BG%=AT% DIV 2:E%=AT%:FT%=TRUE 

1240 FOR Z%=BG% TO E% 

1250 T%=X%(Z%)+IX%(Z%) 

1260 R%=Y%(Z%)+IY%(Z%) 

1270 IF T%<0 PRINTTAB(X%(Z%),Y%(Z%))SP 
$;:T%=39:X%(Z%)=T%:G0T01290 
1280 IF T%>39 PRINTTAB(X%(Z%),Y%(Z%))S 
P$;:T%=0:X%(Z%)=T% 

1290 IF R%<7 PRINTTAB(X%(Z%),Y%(Z%))SP 
$:R%=24:Y%(Z%)=R%:GOTOl330 
1300 IF R%>24 PRINTTAB(X%(Z%),Y%(Z%))S 
P$:R%=7:Y%(Z%)=R%:GOTOl330 
1310 PRINTTAB(X%(Z%),Y%(Z%))SP$; 

1320 Y%(Z%)=Y%(Z%)+IY%(Z%) 

1330 X%(Z%)=X%(Z%)+IX%(Z%) 

1340 PRINTTAB(X%(Z%),Y%(Z%));CHR$(254); 

1350 NEXT 

1360 P%=!((K%*40*8)+4+&5800+(J%*8)) 

1370 IF P%=A% BBB%=TRUE:PROClosealife 

1380 ENDPROC 

1390: 

1400 DEFPROCdispastros 

1410 FOR II%-1 TO AT%:PRINTTAB(X%(11%) 
,Y%(11%));CHR$(254);:NEXT:ENDPROC 


%) 


1710 IF NS%=TRUE NS%=FALSE:PROCnewscre 


en 


1720 V%-FALSE:U%=0:DOCK=20 
1730 SHIP$=Q$ 

1740 ENDPROC 
1750: 

1760 DEFPROCnewscreen 
1770 IN%=TRUE 
1780 D%-0 

1790 PROCclearastros 

1800 PRINTTAB(0,12)"Well done ... you 


1810 PROCnoise:PROCnoise 
1820 PROCbonuscount 

1830 PRINTTAB(0,16)"You have a bonus of 
:PRINTTAB(20,1 6) PRINT" points !" 

1840 PRINTTAB(21,31)"00"; 

1850 GOTO450 

1860 PROCaddbonus 
1870 AT%=AT%+5 

1880 IF AT% MOD 2=1 AT%=AT%+5 

1890 IF AT%>40 AT%=40 

1900 IF AT%>9 BG%=0:E%=AT% DIV 2 

1910 PROCsetastros 
1920 PROCclearastros 


1 * * 


1930 PROCdispastros 
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1940 LL%=LL%+1 

1950 IF LL%=3 NL%=NL%+1:PRINTTAB(12-LE 
N(STR$(NL%)),1);NL%:PROCnoise 
1960 SOUND!,-15,150,26 
1970 PRINTTAB(39-LEN (STR$(LL%)) , 1) ;LL% 

1980 I%=I%+3000:B%-I%:TIME=0 
1990 FI%=FI%+100 

2000 oldfuel%=F%:F%=FI% 

2010 PROCdispfuel(oldfuel%) 

2020 I%=I%+4000 

2030 B%=I% 

2040 D%=0 
2050 ENDPROC 
2060: 

2070 DEFPROCclearastros:VDU 28,0,24,39 
,7:CLS:VDU 28,0,31,39,0:ENDPROC 
2080: 

2090 DEFPROCdockingssofar 
2100 PRINTTAB(39-LEN(STR$(TD%)),31);TD 
%;:PRINTTAB(22,31);D%;:ENDPROC 
2110 : 

2120 DEFPROOmoveman 
2130 X%=0 

2140 IF INKEY(-98) X%=- 
2150 IF INKEY(-67) X%=1 
2160 IF INKEY(-74) PROCwaitabit 
2170 IF AN%=TRUE AN%=FALSE:ENDPROC 
2180 J%=J%+X%:PROClessenfuelbyone 
2190 IF BBB%=TRUE THEN ENDPROC 
2200 IF J%<0 J%=0:X%=0 
2210 IF J%>39 J%=39:X%=0 
2220 K%=K%+1 

2230 PRINTTAB(J%-X%,K%-1)SP$; 

2240 P%=!((K%*40*8)+4+&S800+(J%*8)) 
2250 PRINTTAB(J%,K%);CHR$(255); 

2260 IF P%=0 ENDPROC 
2270 IF P%=A% OR P%=W% PROC1osea1ife:B 
BB%=TRUE:ENDPROC 

2280 IF P%=Y% OR P%=Yl% FLAGl%=2+(P%=Y 
%):PROClosealife:BBB%=TRUE:ENDPROC 
2290 PROCblock 
2300 U%=1 

2310 ENDPROC 

2320: 

2330 DEFPROCblock 

2340 IF J%<13 QW%=6 
2350 IF J%<26 AND J%>12 QW%=17 
2360 IF J%<39 AND J%>25 QW%=26 
2370 PRINTTAB(J%,K%-1);CHR$(255) 

2380 PRINTTAB(J%,K%);CHR$234; 

2390 IF K%=28 SC%=100 ELSE IF K%=29 SC 
%-200 ELSE SC%=50 
2400 D%=D%+1 
2410 IF D%=7 NS%-TRUE 
2420 TD%=TD%+1 

2430 PROCdockingssofar 
2440 PROCnoise 

2450 S%=S%+SC%:PROCscore 
2460 K%=K%-1 

2470 ENDPROC 


2480: 

2490 DEFPROClosealife 
2500 SHIP$=Q$ 

2510 NL%=NL%-1 

2520 PRINTTAB(12-LEN(STRS(NL%)),1);NL% 
2530 PRINTTAB(J%,K%);CHR$242 
2540 PROCcrash 
2550 PRINTTAB(J%,K%)SP$ 

2560 IF FLAGU THEN PRINTTAB(J%,K%) ;CH 
R$(231+FLAG1%);:FLAGl%=FALSE 
2570 IF NL%=0 PROCf inlsh: IF Z$0 ,, Y' , E 


ND 


2580 V%=FALSE: U%=0:DOCK=20 
2590 PRINTTAB(0,30);SEAl$; 

2600 J%=L%+3:K%=M%+2 
2610 *FX15,0 

2620 IF NS%=FALSE ENDPROC 

2630 PROCnewscreen:DOCKS=0:NS%=FALSE:E 


NDPROC 
2640: 

2650 DEFPROCfinish 
2660 VDU28 r 0,31,39,3:CLS:*FX15,0 
2670 PRINTTAB(9,12)"G A M E 
2680 PRINTTAB(0,25)"Do you want to pla 
y again (Y/N)":VDU28,0,31,39,0 
2690 IF S%>H% PRINTTAB(0,17)"You got t 

well done!I":H%=S%:»&80 


OVER 


1 


he high-score : 


H% 


2700 S%=-1:Z$=GET$:IF Z$<>"N" RUN 
2710 *FX4 

2720 VDU22,6:*FX11,40 

2730 ENDPROC 
2740: 

2750 DEFPROCbonuscount 

2760 B%=I%-TIME:B%=B% DIV 10:IF B%<0 B 

%=0:ENDPROC ELSE ENDPROC 

2770: 

2780 DEFPROCaddbonus:S%=S%+B%:FOR II%= 
S%-B% TO S% STEP 10 

2790 PRINTTAB(14-LEN(STR$(11%)),0);II% 
:SOUND0,-15,3,1:NEXT 

2800 PRINTTAB(14—LEN(STR$(S%)),0);S%:P 
ROCnoise:ENDPROC 
2810: 

2820 DEFPROClessenfuelbyone 
2830 F%=F%-1 

2840 IF F%=-1 F%=FI%:PROClosealife:PRO 
Cdispfuel(10):BBB%=TRUE 
2850 PRINTTAB(21,1)"0000 
2860 PRINTTAB(25-LEN(STR$(F%)),1);F%; 
2870 ENDPROC 
2880: 

2890 DEF PROCdispfuel (oldfueU) : PRINTTA 
H { 21 , 1)"0000 
2900 FOR II%=oldfuel% TO F% STEP 10:PR 
INTTAB(25-LEN(STR$(11%)),1);II% 

2910 SOUND0,-15,3,3:NEXT:ENDPROC 
2920: 

2930 DEFPROCwaitabit 

2940 IF F%<11 AN%=FALSE:ENDPROC 


II 


II 
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3290 PRINTSPC11;"RETURN 
3300 PRINTSPC11;"SPACE 
3310 PRINTSPC20;"MOTHER SHIP 
3320 PRINTSPC20;"OR TAKE OFF 

3330 VDU28,0,24,39,0 

3340 ENDPROC 
3350: 


2950 F%=F%-10 

2960 PRINTTAB(21,1)"0000 
2970 PRINTTAB(25-LEN($TR$(F%)),1);F% 

2980 AN%=TR(JE 
2990 ENDPROC 
3000: 

3010 DEFPROCscore:FOR II%=S%-SC% TO S% 
STEP 2 

3020 PRINTTAB(1 4-LEN(STR$(I1%)) ,0); 11% 
:SOUND0,-15,3,1:NEXT:ENDPROC 
3030: 

3040 DEFPROCnoise 
3050 FOR II%=1 TO 6 
3060 SOUND!,-15,5,3 
3070 SOUND1,-15,20,3 
3080 NEXT 
3090 *FX15,1 

3100 TIME =0:REPEAT UNTIL TIME>90 

3110 ENDPROC 
3120: 

3130 DEFPROCcrash 
3140 FOR II%=—15 TO 0 
3150 SOUND0,11%,3+RND(3),5 

3160 NEXT 
3170 ENDPROC 
3180: 

3190 DEFPROCinst 

3200 PRINTTAB(12)"LUNAR ESCAPE 
3210 PRINT 

through the 
3220 PRINT" asteroids to the launch pa 

ds below. 

3230 PRINT" Collect the waiting people 
and fly 

3240 PRINT" back to the mother ship. 
3250 PRINT" Your shuttle has only a li 
mi ted amount 

3260 PRINT" of fuel, so watch for it r 
unning out. 

3270 PRINTSPC11;"Z 
3280 PRINTSPC11;"X 


1! I 


SLOW DOWN 


II 


IV 


RELEASE FROM 


II 


11 


3360 DEFPROCsetchars 
3370 VDU23,1,0;0;0;0; 

3380 VDU23,255,24,60,189,255,102,60.66 


,129 


3390 VDU23,232,96,232,232,232,250,250, 


254,255 


3400 VDU23,233,6,23,23,23,95,95,127,255 
3410 VDU23,234,255,255,255,255,255,255 


/ 


i 


3420 VDU23,238,255,255,0,0,0,0,0,0 
3430 VDU23,242,153,90,60,231,231,60,90 


,153 


3440 VDU23,254,78,255,255,252,124,127, 
127,58 

3450 VDU23,253,144,146,210,218,223,255 


3460 VDU23,243,1,3,3,7,7,3,3,1 

3470 VDU23,244,128,192,192,224,224,192 

,192,128 

3480 VDU23,245,61,255,255,195,129,0,0,0 
3490 VDU23,247,0,3,7,31,63,126,124,248 
3500 VDU23,248,129,126,0,0,0,0,0,0 
3510 VDU23,249,0,192,224,248,252,126,6 


11 1 « 


I I M 


Guide your shuttle down 


It 


2,31 


3520 ENDPROC 
3530: 

3540 ON ERROR OFF 

3550 IF ERR=17 THEN PROCfinish ELSE RE 
PORT:PRINT" at line ”;ERL 

3560 *FX4 
3570 *FX12 

3580 VDU23;11,255;0;0;0 
3590 END 


ir 


II 


It i 


ii 


it t i 


it 


move LEFT 
move RIGHT 


it 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


* 


V 


I 


SPACE INVADER PROMPT 

The VDU 23 call can be used very amusingly to re-define the prompt symbol '>' to 
be a space invader. Try the following: 

VDU23,62,60,126,219,255,126,60,36,66 <return> 


1 


T 


a- # 


a- m 

# * 


* * * 




* *■ 


W ■? » ri T 


a- a- 


• * ■ a # 


■ ■ * ■ 


■ #> a 


a + 


* * « 


I- T 


* * 


■ * * * 


+ a # -a * -a 


» ■ 


*■ * 


a- a 




* ¥ 


• # 


■S T -T ■ 


- I w * n 


i # 


* * 


§ + « 


i * » 


P.Davies 


PREVENTING THE SCREEN FROM SCROLLING 

The screen will automatically scroll if a character is printed in the bottom 
right corner of the screen. This will have the effect of deleting any text on the 

top line. An easy way to prevent this is to type in ?&D0=2 <return>. This 
second bit of the location &D0, which controls the scrolling of the screen. If this 
bit is set, then the scrolling facility is inhibited. After printing a character in 
this position, the screen must be returned to its former state by using ?&D0=0 
<return>. 
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DANCING LINES 

by David A. Fell 


This intriguing program not only produces an interesting graphics 
display, but also shows how a sequence of random numbers generated 
in Basic is not really random at all! 


first value to be returned in the 


This short program produces an 

display by 


particular sequence chosen. 


attractive 
simulating the bouncing of two points 

around the screen at random, with a 
randomly coloured line drawn between 
the two. An apparently random sequence 
is built up on 


PROGRAM NOTES 


In the program, line 150 creates a 
random seed, and this is used at lines 


the screen, and then 


160 and 180 to start the generator off 
producing the same sequence of numbers. 
Lines 170 and 190 call the procedure to 
produce a screen of lines, and both the 
calling and 
contained 


erased in the 


it was 


same order 


created. Once the screen has 'emptied', 

producing a 


the program 


different sequence for each screen. 


ing 


ions 

within a REPEAT ... tWTIL 
loop that cycles endlessly, or until 


RANDOM NUMBERS 


Tne two key facts that enable the 
program to precisely erase the lines, 
without any co-ordinates being 
are the Exclusive-OR plotting technique 
used (see the User Guide page 97), and 
the repeatability of 
number generator. This is not a true 

random number generator, but produces 

what are termed pseudo-random numbers. 
This means that the numbers that it 
produces may appear random, and indeed 
will satisfy most tests for randomness, 
but are actually produced by a fixed 
set of calculations which can be made 

Whenever a 


of the program, line 
120 turns off the cursor, as this only 

a distraction in graphical 
displays. Line 130 effectively turns 
off the flashing colours, 

inevitably going to be generated 
result of both the usage of 

Exclusive-OR plotting and the random 
colour range that 

which would appear unattractive if left 
flashing. This is achieved by setting 

the 'mark' period to zero, and thus 
leaving all of the flashing colours 

permanently in only one of their two 
possible colours. 


At 


random 


which are 


a 


and 


or 


starting point, for the Electron's 
random number generator is entered, it 


is possible to identically regenerate 


particular 


of 


random 


a 


numbers. 


FLA SHING COLOURS 

All the flashing colours show each 
two colours alternately on the 

screen. The time for which each of the 
two colours is displayed can be altered 
by using the *FX9 call to set the time 

for the first colour and *FXl0 to 
the time for the second (see page 280 

of the User Guide). Setting either time 
to zero (but not both) results in the 
other 

displayed. 


To seed the random number generator, 

you use the form: 

X=RND(N) 

where N is a negative number. As an 

example, try this: 

PRINT RND(-100) 


of 


When 'seeding' the Electron's random 

number generator, the value that RND 

was 


returns is the same as 


being permanently 


colour 


in this case 


100. Once a negative 
value has been passed, the generator is 
'seeded', and thus now predictable. 
Moreover, if you now type: 

PRINT RND(10) 

for example, immediately after seeding 
the generator as above you will always 
get a 9 printed, which is always the 


it. 


The display itself is produced by 
the procedure PROCpicture. Lines 1010 
to 1080 generate random starting points 
and random increments for the two ends 
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of the line. The increments are fixed 

the two end s 
moving off in opposing directions. The 
FOR-NEXT loop starting at line 1090 
will determine how many lines will be 
drawn for each pattern, and adjusting 
the value of 500 to, say, 100 will give 
a shorter pattern. 


120 VDU23,1, 0; 0; 0; 0; 

130 *FX9 

140 REPEAT 

150 SEED%=ABS{RND) 

160 A%=RND(-SEED%) 

170 PROCpicture 
180 A%=RND(-SEED%) 

190 PROCpicture 
200 UNTIL FALSE 

210 END 
220 : 

230 ON ERROR OFF: MODE 6 

240 IF ERR017 THEN REPORT:PRINT 

line ";ERL 
250 END 
260 : 

1000 DEF PROCpicture 
1010 Xl%=RND{1279) 

1020 Yl%=RND(1023) 

1030 X2%=RND(1279) 

1040 Y2%=RND(1023) 

1050 XI1%=RND(4) 

1060 YI1 %= : RND(4) *5 
1070 XI2% = -RND(4)*5 
1080 YI2%=-RND(4)*5 
1090 FORI%=0TO500 
1100 GC0L3,RND(16)-1 
1110 MOVE XI%,Yl% 

1120 DRAW X2%,Y2% 


so that they will start 


The procedure uses the Exclusive-OR 

plotting option of the GCOL instruction 
(selected at line 1100), and the random 

colour. Exclusive-OR plotting has the 


it 


★ ^ 


D 


unusual property in that, if any 
graphics with the same colour and 
co-ordinates are plotted an even number 

of times, then they 'cancel' out 
leaving whatever happened to be on the 

As we start of with a 
blank screen, and all plotting is done 
twice, at the same co-ordinates and in 

the same colour 
result is that there is nothing left on 
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The overall effect, therefore, is of 
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a completely random pattern 
and in colour, and yet one which can be 

a nd hence 


precisely repea ted, 


1130 IF XI%+XI1%>1279 XI1%=-RND(4)*5 
1140 IF X1%+XI1%<0 XI1%=RND(4)*5 
1150 IF Yl%+YI 1%>1023 YI1%=-RND(4)*5 
1160 IF Yl%+YI1%<0 YI1%=RND(4)*5 
1170 IF X2%+XI2%>1279 XI2%=-RND(4)*5 
1180 IF X2%+XI2%<0 XI2%=RND(4)*5 
1190 IF Y2%+YI2%>1023 YI2%=-RND(4)*5 
1200 IF Y2%+YI2%<0 YI2%=RND(4)*5 
1210 Xl%=Xl%+XIl% 

1220 Yl%=Yl%+YI1 % 

1230 X2%=X2%+XI2 
1240 Y2%=Y2%+YI2% 

1250 NEXT 
1260 ENDPROC 


from the screen 




Lines 1090 to 1250 are concerned 

with the mechanics of bouncing a point 
around an enclosed rectangle (in this 


10 REM Program Dancing Lines 

20 REM Author David A. Fell 
30 REM Version El .2 
40 REM ELBUG MAY 1984 
50 REM Program subject to Copyright. 
60 : 

100 ON ERROR GOTO 230 
110 MODE 2 


9, 
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USING BBC MICRO PROGRAMS ON AN ELECTRON (Part 3) 


by David Graham 


As I suggested in the first article in this series, one of the major 

differences between the BBC Micro and the Electron is its speed of 
operation. The Electron runs at up to three times slower than the 

Beeb. This can 
software for the Electron 


problems when adapting BBC Micro 
as anyone at Aeornsoft, Program Power or 
Beebugsoft will tell you! But there are ways around the problem, and 
this month, in the last article of this series, X want to look at 


serious 


how to speed up Basic programs on the Electron. 


MODE DEPENDENCE 


CHANGING MODE 


The most striking thing about the 
speed of the Electron when compared to 

the BBC Micro, 
uniike 


In most situations where a time 
critical BBC micro program uses Modes 
0, 1 or 2 (the slowest on the 


is that the Elk’s speed, 


that of the Beeb, is Mode 
dependent. If you run the program "Time 

you will get some idea of this. 
The program simply prints out the time 
taken by the Electron to calculate the 
sine of an angle two hundred times 

over. Set your Electron to Mode 6, and 
run it. Note the result printed on the 
screen, then run it in Mode 2. You will 
see that it takes more than twice 


Electron), you can change these to Mode 

table 1. 


4 or 5 

several provisos here. If you replace 
Mode 0 by Mode 4 you will get 40 rather 
than 80 column text, and you will also 
lose resolution. Replacing Mode 1 with 
Mode 4, or Mode 2 with Mode 5 you will 
not lose resolution, but the number of 
available colours will be reduced from 
4 to 2, or from 16 to 4 respectively. 


There are 


long. 

different Modes depends on the program 
that you are running 


The exact relative speeds of the 


Mode Chrs Cols Resol 

1 I ution 


Replace 


but the speed 


with Mode 


difference between Modes 0, 1 or 2 and 


4, 5 or 6 will always be significant. 


0 


80 


2 640x256 

4 320x256 

16 160x256 


4 


1 


40 


4 


10 REM TIME TEST 
20 TIME=0 

30 FOR A%=1 TO 200 

40 X=SIN(12) 

50 NEXT 

60 PRINT TIME 


2 


20 


5 


80 


3 


2 


4 


40 


2 320x256 

4 160x256 


5 


20 


6 


2 


40 


From this we can easily establish 
certain rules of thumb. These 
follows: 


One of the most commonly used Modes 
for games on the BBC micro 
consequen11 y speed is of a premium 
Mode 2. Fortunately it is 
possible to replace this with Mode 5. 
Character size and 
identical in both Modes 
difference is the loss of colours. Mode 


and where 


is 


If speed is important in a 
program, keep to as high a 
Mode as possible. 


1 . 


usually 


resolution 


and the only 


Perform as many of the time 
critical parts of your program 
while in a high Mode. For example, 
if you are generating a maze for a 
game in Mode 2, make sure that you 

in Mode 6 while you calculate 
the maze. Only switch to Mode 2 at 
the last moment. 


2 . 


5 leaves you with only four, 
the 


including 

four 


Fortunately 
colours is usually just about enough to 
get by with. We have adopted this 
technique for example with the game 
Hedgehog (ELBUG Vol. 1 No. 1). This was 
originally published in BEEBUG 


background. 


a 
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Fast and efficient 


Mode 2 BBC micro game. The way to 
approach the problem is simply to look 


gives notes on 
programs 1 . 


for all Mode statements in your program 


- the Utility Editor published in ELBUG 
No. 5 might be helpful here. Then just 


TIME DELAYS 

One of the most obvious things to 

look for in a Beeb program that you are 
trying to speed up are time delays. The 
most likely forms of delay are 
follows: 


change all occurrences of Mode 2 for 5, 


and Modes 0 and 1 for 4. There is no 
real need to change Mode 7 to Mode 6 

into Mode 6 

whenever it encounters the instruction 
MODE 7". 


since the Electron gets 


For A=1 to 100:NEXT 


■ t 


or 


Now run the program and 
happens. You will almost certainly need 

new colours 
produced. One reason for this is that 
some things printed on the screen will 
probably have become invisible. What 
has really happened is that they have 
been printed in the same colour as the 
background. The way to sort out the 
colours is to find every COLOUR or GCOL 
statement - again the Utility Editor 
could be helpful here - and ensure that 
the colour number called is in the 
range 0 to 3. You will have to choose 
the numbers carefully so that objects 
show up as well as possible. 


what 


TIM£=0:REPEAT UNTIL TIME 


20 


or 


X=INK£Y(20) 


some of the 


to alter 


The first 


very obviously 
and can be removed to 
. You have to be more 
careful with the third type, because as 
well 

it also assigns 

way to 

remove the (20) or whatever, and 
what effect this has on the program. 


two 

waiting loops. 


performing a waiting function 

a value to X. The 


INTEGER VARIABLES 


The next thing to do is to replace 


possible by 
and where possible 

For example, 
suppose your program has the following 


many variables 


integer 
single letter 


Remember though, that you are not 
stuck with the four colours black, 
yellow, red, and white. Each of these 
may be changed for any of the 16 
available colours (but you can still 
only have a total of four different 
colours on the screen at any one time). 
The way to change colours is by using 
the VDU 19 call. See the User Guide 

107. Suppose that you have 

a Mode 2 screen to Mode 5, 

and have assigned colours 0, 1,2 and 3 
in such a way as to keep all 

distinguished, but wish to 
change all the red objects to cyan. 
Just 

19,1,6,0,0,0 after the last Mode change 
- and so on. 


INVADERS 

L00PC0UNT 

LASERX 

LASERY 

BULLET% 

SCORE 

TEXT$ 


page 
converted 


INVADERS and TEXTS are string variables 
(the $ tells you this), and should not 

changed. 8ULLET% is an integer 
variable (the % tells you this). You 

could change this for 8%, but there 
will not be much saving here. Bigger 

achieved when you change 


the screen 


be 


insert 


the statement VDU 


OTHER STRATEGIES 


savings 

any of the others to integer variables. 
You could just call the A%, B%, C% etc. 
and change each occurrence throughout 

program, but unfortunately you 
cannot always substitute 

variables. 


I want to look now at a 


further strategies for increasing the 


speed of programs adapted from the Beeb 


the 


- although like those treated above, 
the principles involved will in general 

if you 

originating the code yourself - and 

wish to make your program as 
possible. Some of the principles 

here are touched upon in 
appendix 'E' of the User Guide which 


so-called 'real 


be equally 


The problem with integers is that 
they can only take a certain range of 
values: 

decimal numbers. But looking at the 


they 


can 
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ie. LOOPCOUNT, 
- they may 
integers. Loop 
- you can’t 

but do 


that we have - 
LASERX, LASERY and SCORE 
well all be used 


100 X%=100:Y%=50: 

IFZ%*SINX>40THENP%=50 


counts are often integers 
go round a 


and so on. The speed gained here will 

not be great however, though every 
little helps and readability will be 

reduced. 


loop 1.5 times 


check that the step size is 


also 


integer or the program will not work 
correctly when the loop count is 
converted to integer. The same goes for 
the position of the 


The User Guide also suggests 


that 

REPEAT_UNTIL loops. REPEAT 

certainly 

GOTO loops; but what the 
Guide does not say is that FOR...NEXT 

and by a 

considerable margin. So try to use 
these where at all possible 
the Guide does mention, leave off any 
possible variable 
statement. Thus 


you use 


In this 


game, or the score. 


loops 
unstructured 


than 


case you 


could replace all 

LOOPCOUNT by say C%, of LASERX by X%, 
of LASERY by Y% and of SCORE by S%. 

This is likely to improve 
considerably.• 


loops are the fastest oi all 


and 


If possible you should also replace 
all normal division signs "/" by "DIV", 

integer 

but again you will lose 
decimal precision. The answer to 5 DIV 
4 is 1, not 1.25. Very often in games, 

is of the 


in the NEXT 
NEXT rather than 


the much quicker 

function 


division 


the X is quite redundant. 


say NEXT X 


and slows execution. 


By using a combination of these 
techniques you will be able to 
considerably enhance 
Electron programs; and if you 
converting programs from the Beeb you 
will find that most can be converted 
satisfactorily if these various points 
are born in mind. There-will always be 
some that cannot be satisfactorily 
converted from a speed point of view 
however, and there is a certain degree 
of skill in spotting which these are 
before you have invested too much time 
and effort on them. 


where speed 


extra precision is not necessary. 


the speed of 


REMS AND PROGRAM LINES 

In Acorn's advice on making programs 
run faster they suggest that you remove 
all REM statements, and reduce the 
number of program lines. For example 
the four lines below: 


100 REM CALCULATION SECTION 
110 X%=100 

120 Y%=50 

130 IF Z%*SINX>40 THEN P%=50 


could be rewritten as: 


HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINTS HINT 


c 


R.Jefferyes 


SPEED IMPROVEMENT WITH LOGICAL VALUES 


integers, represented by 


Internally TRUE and FALSE are held 

for example, if you write 


1 and 0 


respectively. So, 


crash-TRUE 


the TRUE will be converted to floating point form when it is stored. The statement 
will execute faster if you use an integer variable like this: 

crash%=TRUE 


tit#***# 


■ # m 


§ * ft * 
I * t i- 


i *■.##**'#» •* 


v i 

B * 


■8 * - » * 


§ t 


* ■ ft • 


i * 


■■ # 


* » 


■ « + 


If* 


I * I 


8 » 


* * * 


• .# 


* ft M 


# * 


* t * ■# £ ■ t * 


■ I p 


i 9 * # ■ 


»*!»■■■ 


» * 


* ■ ft ft m m 


NEXT' EFFECT WITH LIST07 


M.Robinson 


You may know that FOR..NEXT loops can be terminated with commas e.g. NEXT 
(which has the same effect 


r f 


NEXT:NEXT:NEXT). However 

recognised by the LIST07 option, used to format listings by indenting by two spaces 
for each nested loop. Loops terminated by a comma will not be indented by two extra 
spaces for each NEXT that has been replaced by a comma. 

This also applies if the controlling variable of the loop is included 

A,B,C. The actual keyword 'NEXT' must be included to cancel the indentation e.g. 
NEXT:NEXT:NEXT. M 


these corrmas are not 


NEXT 


e.g. 
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FOUR IN A ROW 

by J. Webb 


This is an excellent and colourful implementation of the game 

popularly known as 'Connect Four'. In this game of strategy, you try 
to arrange four counters in a line in any direction, while 
preventing your opponent from doing the same. 


This is a game for one or two players, with the option of choosing the computer 
as the opponent. The two players take turns deciding in which column 
counter. As in the real game, counters always end up in the lowest empty position in 
any column chosen. The object of the game is to arrange a row of four of your own 
counters, either horizontally, vertically or diagonally, on 
the 6x7 position board, while trying to prevent your 
opponent from doing the same. The winner is the first 
person to get four counters in a row. 


to pi ace 


a 


The program displays instructions for playing the game 

on the screen. You can choose whether to play against the computer or another person 
before the game starts. You then simply select which column to place your counter in 
by typing in the column number followed by Return. 


Tne usual red and yellow colours are 

used in the program for the counters, 
but the yellow can be a little 
difficult to see against the 
surrounding white frame in 

circumstances. To change it to magenta 
(colour 5), for example, add the 
following line: 


120 DIMposition%(6,7):PROCcircles 
130 ENVELOPEl,6,0,0,0,0,0,0,121, 

0 ,- 5 ,- 2 , 120,120 

140 ENVEL0PE2,6,4,-8,-4,16,16,32, 
64,64,-64,-64,128,0 
150 PROCtitles 

160 go%=l :win%= ; 0: turn%=0:comp%=0 
170 F0Rrow%=lT06 
180 FORcc1%=1T07 
190 position*(row%,col%)=0 
200 NEXT:NEXT 
210 CLS 

220 PROCsetupgame 
230 REPEAT 
240 PROCturn 

250 IF go%=0 AND comp%=0 PROCcolour 
260 IF go%=0 AND comp%=l PROCcomputer 
:PROCcolour 

270 IF go%=l PROCcolour 
280 PRINTTAB(0,8)"Last go M,,, col: ";co 
lumn% 

290 S0UND&11,1,86,111:screen%=l4347+4 
8*coiumn%:REPEAT:screen%=screen%+l920:U 
NTIL?screen%>0 

300 missweigh%=0:PROCweighandcheck:mi 


245 VDU19,2,5,0,0,0 


may also like to 

alternative 


You 
try 

colours 


You will find that the computer 
plays a reasonably strong game and 
generally speaking, it will win unless 


you can set 


a trap for 


it 


by 


gradually 

building 


two 


up 


interrelated rows of four counters. 


10 REM Program FOUR IN A ROW 

20 REM Version E1.0 
30 REM Author J.Webb 

40 REM ELBUG May 1984 

50 REM Program subject to Copyright 
60 : 

100 MODE 1 

110 ON ERROR GOTO 340 


ssweigh%=! 


310 UNTILwin%=990Rturn%=42:PROCwin:GO 
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1200 : 

1210 DEFPROCcircles:REM Draws one circ 


320 END 
330 : 

340 ON ERROR OFF:MODE 6 
350 IF ERR017 THEN REPORT: PRINT" at 
line ";ERL 
360 END 

1000 DEFPROCsetupgame 
1010 REM This draws the board, and est 
ablishes who is playing. 

1020 VDUl9,3,0;0;:MOVE285,895:DRAW285, 
205:DRAW!020,205:DRAW!020,895:DRAW285,8 


le 


1220 VDU23,224,255,255,255,252,240,224 
,224,192:VDU23,227,192,128,128,128,128 

128,128,192:VDU23,229,3,1,1,1,1,1,1,3:V 
DU23,226,255,255,255,63,31,15,7,3 

1230 VDU23,232,3,7,15,31,63,255,255,25 
5:VDU23,228,0,0,0,0,0,0,0,0:VDU23,225,2 
55,255,0,0,0,0,0,0:VDU23,231,0,0,0,0,0, 


r 


95 


1240 VDU23,230,192,224,224,240,252,255 


f 


1250 Cl$<HR$224+CHR$225+CHR$226:C2$=C 
HR$227-K3HR$228+CHR$229:C3$=CHR$230+CHR$ 
2314CHR$232:COLOUR3:COLOUR!27 
1260 C$=C1$+CHR$8+CHR$8+CHR$8+CHR$l0+C 

2$+CHR$8+CHR$8+CHR$8-k:HR$1 0-KT3S 
1270 ENDPROC 
1280 : 

1290 DEFPROCtitles:VDU23,1,0;0;0;0; 
1300 VDU28,0,2,39,0:COLOUR 129:CLS:COL 
OUR 3 

1310 PRINTTAB(1 1,1)"FOUR IN A ROW 

1320 VDU26:COLOUR 128:COLOUR 6 


It 


1330 PRINTTAB(2,5)"The object is to ge 

of your own colour in 


t four counters 


II I II 


a line in any 
1340 PRINT'TAB(2)"You can choose to 
play against the":PRINT"computer or ag 
ainst another player. The":PRINT"machin 

e always plays yellow. 

1350 PRINTTAB(6,19)"Press the space ba 

r to play. 

1360 REPEAT UNTIL GET=32 


direction 


It i tl 


fi 


* 


II 


1330 MOVE300,880:MOVE300,220:PLOT85,10 
05,880:PLOT85,1005,223:VDU20 
1040 VDU19,0,4,0,0,0 
1050 F0RR=lTO6:FORC=lT07:PRINTTAB(7+3 
C,2+3*R);C$;:NEXT:NEXT 

1060 VDU5:MOVE355,260:QCOL0,0:PRINT"1 
23456 7":VDU4 

1070 VDU23,1,0;0;0;0; 

1080 REPEAT:PROCclear:PRINTTAB(11,27) 
Do you want to play":PRINTTAB(10,29)"th 

e computer?(Y or N) ":ans$=GET$:UNTILan 
s$="Y"ORans$="N 

1090 IF ans$="N"THEN ENDPROC 
1100 REPEAT:PROCclear:comp!=1:PRINTTAB 
(12,27)"Do you want to go":PRINTTAB(1 3 
29)"first?(Y or N) ":ans$=GET$:UNTILans 
$="Y"ORans$= ,, N 
1110 IF ansS="Y" go%=0 
1120 ENDPROC 

1130 : 

1140 DEFPROCcolour 

1150 REM This colours display at next 
available position 

1160 col%=column%:row%=0:REPEAT:row%=r 
ow%+1:UNTILposition%(row%,column%)=0 
1170 position!(row!,column!)-1 
1180 COLOUR(130-go%):PRINTTAB(7+3*coIu 

mn%,23-3*row%);C$:COLOURl28 
1190 ENDPROC 


n 


•k 


1370 ENDPROC 
1380 : 


U 


tl 


Lilt 

eel i 




r 


it 


wlm( 


Pr*«« eeeee be#" to play 


1390 DEFPROCwin:PROCclear:S0UND&11,2,1 

00,121 

1400 REM This responds to a win or draw 
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1410 IF turn%=42 AND win%<>99 PRINTTAB 
(12,27)"Honourable drawi":GOTOl440 
1420 IF go!=0 PRINTTAB(14,27)"Yellow w 
ins I"ELSE PRINTTAB{16,27)"Red wins!" 

1430 *FX15,1 

1440 PRINTTAB(5,30)"Press space bar to 
play again.":IF GET$ 

S: END 

1450 ENDPROC 

1460 : 

1470 DEFPROCclear:PRINTTAB(0,27);SPC{1 


1780 IFcheck%=3 col%=7 
1790 NEXT 

1800 IF column1%>0THENcolumn%=columnl% 

: ENDPROC 

1810 IF column2!>0THENcolumn%=column2! 
:ENDPROC 

1820 flag!=flag!+l 

1830 IF turn!<9 OR position!(5,column% 

)=1 THENENDPROC 

1840 screen!-14347+48*column!:col!=col 
umn% 

1850 REPEAT:screen%=screen%+l920:UNTIL 
?(screen!+3840)>0ORscreen%>=22363 
1860 PROCweighandcheck 
1870 IF flag%>4 THENIF dontgol%>0 AND 
dontgol%<>dontgo3% AND dontgol%<>dontgo 
4% THENcolumn%=dontgol%:ENDPROC 
1880 IF flag%>4 AND dontgo2%>0 THENcol 
umn!=dontgo2!:ENDPROC 
1890 IF flag%>4THENcolumn%=dontgo3%:EN 
DPROC 

1900 IF dontgol%=column% OR dontgo2!=c 
olumn% OR dontgo3%=column! OR dontgo4%= 
column! THEN1690 
1910 ENDPROC 

1920 : 

1930 DEFPROCweighandcheck 
1940 REM This gives a weighting to eac 
h possible move selected in PROCcompute 

and also checks for a winning line a 
fter each turn. 

1950 weight!=0 
1960 FORA!=0TO3 

1970 B!=A%=0AND1ORA!>0AND38+A% 

1980 FORC!=0TO3:check!=0 
1990 FORD!=0TO3 

2000 peek!=?(screen!+B%*48*(D!-C!)) 

2010 check%=peek!=240ANDcheck!+lORpeek 
%=15ANDcheck!-lORpeek!=0ANDcheck! 

2020 NEXT 

2030 IFmissweigh%-0 THEN2090 
2040 weight%=weight%-(75+RND(30))*(che 
ck%=-2)-{15+RND(10))*(check!=-l)-(15+RN 
D(10))*(check!=l)-(75+RND(30))*(check%= 


THENl450ELSECL 


20 ) 


1480 ENDPROC 
1490 : 

1500 DEFPROCturn 

1510 REM This displays whose turn next 


1520 turn%=turn!+l 
1530 IF comp!=1AND go%=1 THENl 610 
1540 REPEAT:PROCclear:IF go%=0PRINTTAB 
(8,27)"Reds turn 
1550 IF go%=lPRINTTAB(6,27)"Yellows tu 


It - 


«1 • 


rn 


1560 *FXl5,0 

1570 PRINT"which column?":column!=VALG 
ET$:UNTILcolumn!>0ANDcolumn%<8 
1580 IFposition!(6,column!)>0THEN1540 
1590 IF go%=l go!=0 ELSE go%=l 
1600 ENDPROC 

1610 PROCclear:PRINTTAB(16,27)"Computi 


r, 


ng 


1620 go!=0 

1630 ENDPROC 

1640 : 

1650 DEFPROCcomputer 

1660 REMThis must calculate a value fo 
r column! 

1670 flag!=0:IF turn%<4 column%=4:TIME 
=0:REPEATUNTILTIME>100:ENDPROC 

1680 dontgol!=0:dontgo2!=0:dontgo3%=0: 
dontgo4!=0 

1690 swap%=0:column!%=0:column2%=0 

1700 F0Rcol%=lT07 

1710 IFposition!(6,col!)>0THEN1790 

1720 IF col!=dontgol% OR col!=dontgo2% 

OR col!=dontgo3% OR col!=dontgo4! THEN 
1790 

1730 screen%=l4347+48*col%:REPEAT:sere 
en!=screen!+l920:UNTIL?(screen!+l 920)>0 
ORscreen%>26203 

1740 IFscreen!>26203screen!= : 25867+48*c 


2 ) 


2050 IF check!=3 THENcol umnl%=col!:IF 
dontgol %=0 THENdontgol%=col! 

2060 IF check!=3 THENdontgo2%=col! 

2070 IF check%=-3 THENcolumn2!=col%:IF 
dontgo3!=0 THENdontgo3!=col! 

2080 IF check!--3 THENdontgo4%=col% 
2090 IF check%=4 OR check!=-4 win!=99 

2100 NEXT;NEXT 
2110 ENDPROC 


ol% 


1750 PROCweighandcheck 

1760 IFweight%>swap%THENcolumn%=col% 

1 770 IFweight!>swap!THENswap%= T ^eight% 
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ELBUG MAGAZINE CASSETTE 


To save wear and tear on fingers and brain, we offer, each month, a casette 
of the programs featured in the latest edition of ELBUG. The first program 
on each tape is a menu program, detailing the tape's contents, and allowing 
the selection of individual programs. The 

technical standard by the process used for the BEEBUGSOFT range of titles. 


tapes are produced to a high 


Magazine cassettes have been produced for each issue of ELBUG from Volume 1 
Number 1 onwards and are all available from stock, priced £3.00 each 
inclusive of VAT. See below for ordering information. 


This months cassette (Vol.1 No.6) includes: 

Hunt The Numbers Game, Invisible Alarm Clock, Selective Renumber Utility for 
Basic programs, ASTAAD2 (The complete extended version of the original CAD 
program), Graphics Example Programs (3), Lunar Escape Game, Dancing Lines 
(an interesting visual display), and Four In A Row Game. 

MAGAZINE CASSETTE 

The first 6 ELBUG magazine cassettes (Vol 1 No 1 

to UK members for the price of £15 inclusive of VAT and post. This 

saving of £5 (including post) and is only offered to members 
of ELBUG who place orders before 30th June 1984. 


SPECIAL OFFER ON BACK ISSUES 


Vol 1 No 6) 


MAGAZINE CASSETTE SUBSCRIPTION 


ELBUG members subscription to the magazine 
cassette, this gives the added advantage of receiving the cassette at around 
the same time as the magazine each month. Subscriptions may either be for a 

period of 1 year or 6 months, however for an introductory period we are also 
offering a trial 3 months subscription. (NOTE Magazine cassettes are 
produced 10 times each year). 


also 


able 


We 


If required, subscriptions may be backdated as far as Volume 1 Number 1, so 
when applying please write to the address below quoting your membership 
number and the issue from which you would like your subscription to start. 


AS A SPECIAL INTRODUCTORY OFFER, WE WILL ALLOW YOU TO CHOOSE ANY ONE OF THE 
FIRST 6 MAGAZINE CASSETTES ABSOLUTELY FREE, IF YOU SUBSCRIBE TO THE MAGAZINE 
CASSETTE FOR A PERIOD OF 1 YEAR, BEFORE JUNE 30th 1984. 


MAGAZINE CASSETTE ORDERING INFORMATION 


Individual ELBUG Magazine Cassettes 
P & P: Please add 50p for the first and 30p for each subsequent cassette. 
Overseas orders: Calculate the UK price including post, then deduct 15% 
and add £1 per item. 


£ 3.00 


VAT 


£15.00 

£19.00 


Magazine Cassette Pack (Vol 1 No 1 


Vol 1 No 6) UK 


Magazine Cassette Pack Overseas 


Magazine Cassette Subscription 


O'SEAS £39.00 

O'SEAS £20.00 
O' SEAS £13.00 


No VAT payable 
No VAT payable 
No VAT payable 


YEAR (10 issues) 
6 MONTHS( 5 issues) 
3 MONTHS{ 3 issues) 


£33.00 Incl 


1 


£17.00 Incl 
£10.00 Incl 


to specify that you require subscription to the ELBUG 

magazine cassette, and enclose your membersip number with 
payable to BEEBUGSOFT. 

Send to ELBUG Magazine Cassette, BEEBUGSOFT, PO Box 109, High Wycombe. 


cheque m ade 


a 


Volume-1 lssue-6 


May 1984 


ELBUG 









technical 


to the 


ed itorial 


queries 


address 


All 


opposite. 


con t r 


ions 


published in the magazine will be 


oa i d 


ELBUG 


for at the rate of £25 per page. 


PO Box 50 


St Albans 


We will also pay £10 for the best 


Hint 


Herts 


or Tip that we publish, and £5 to the 


next best. Please send 


editorial 


all 


the editorial 


material 


to 


opposite. 


If you require a reply it is 


membership 


to quote your 


number and enclose an SAE. 


ELBUG MAGAZINE is produced by BEEBUG Publications Ltd. 

Editor: Mike Williams. 

Production Editor: Phyllida Vanstone. 

Technical Assistants David Fell, Nigel Harris and Alan Webster. 
Managing Editor: Lee Calcraft. 

Thanks 


Sheridan Williams, and Adrian Calcraft for assistance with this 


due to 
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